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IDENTIFICATION 


PRODUCT CODE:  AC=9213D-MC 

PRODUCT NAME: CZRJHDO RP04/5/6 DISKLESS CONTROLLER TEST-PART I] 
DATE CREATED: MAY, 1979 

MAINTAINER: DIAGNOSTIC ENGINEERING 

AUTHOR: PETE BLACKSTONE 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 

CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS 

A COMMITTMENT BY DIGITAL EQUIPMENT CORPORATION. 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO 

cee Cunwena st FOR ANY ERRORS THAT MAY APPEAR IN THIS 
NU Ls 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED 
TO THE PURCHASER UNDER A LICENSE FOR USE ON A SINGLE 
COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION OF 
DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN 
WRITING BY DIGITAL. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL. 
COPYRIGHT (C) 1976,1979 DIGITAL EQUIPMENT CORPORATION 


THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION 


SEQ 0001 


. 3 
CZRIHDO,RPO4/5/6 DSKLS CTRLR2 MACY11 30A(1052) 24-MAY-79 15:07 PAGE 3 


CZRJHD.P11 28-MAR-79 09:16 


fo 
. 


oo foe wo Oo oO ON OC o wr WF WT FS a - > ww nNn "n~ 
. . * © © a o . 7 7 7 7 2 . . os . . . 2 


- Ww Ww 


DIGITAL PDP UNIBUS 
DEC DECUS DECTAPE 
CONTENTS 
ABSTRACT 
REQUIREMENTS 
EQUIPMENT 


STORAGE 

PRELIMINARY PROGRAMS 

LOADING PROCEDURE 

METHOD 

STARTING PROCEDURE 

CONTROL SWITCH SETTINGS 
STARTING ADDRESS OR ADDRESSES 
PROGRAM AND/OR OPERATOR ACTION 
OPERATING PROCEDURE 
OPERATIONAL SWITCH SETTINGS 
SUB-ROUTINE ABSTRACTS 

ERRORS 

"FATAL® ERRORS 

RESTRICTIONS 

MISCELLANEOUS 

EXECUTION TIME 

STACK POINTER 

OPERATOR SELECTABLE SCOPE LOOPS 
PROGRAM REVISION HISTORY 
PROGRAM DESCRIPTION 


MASSBUS 
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1.0 


ABSTRACT 


THIS DIAGNOSTIC TESTS THE RH11 AND DCL OF AN RPO4/5/6 SUBSYSTEM. 
11 DOES NOT USE THE DISK SURFACE OR ANY SIGNALS FROM THE MDLI. 
1T REQUIRES THAT THE DCL CABLE BE PLUGGED INTO THE MOLI OR 

BE APPROPIATELY TERMINATED. IF THE DISK IS POWERED UP, IT 

1S REQUIRED TO GET THE DISK TO THE “‘HEADS UNLOADED’’ POSITION. 
AFTER A SUCCESSFUL RUN (WITH NO ERRORS) OF THIS DIAGNOSTIC 

117 CAN BE ASSERTED THAT, ‘THAT PART OF THE DCL THAT HANDLES 
DATA OR DATA ASSOCIATED LOGIC IS WORKING PROPERLY’. THIS 
IMPLIES THAT, THAT PART OF THE LOGIC WHICH HANDLES MECHANICAL 
COMMANDS OR ITS ASSOCIATED LOGIC 1S NOT TESTED IN THIS 
DIAGNOSTIC. ALL DATA COMMANDS USE THE MAINTENANCE REGISTER 

IN THE WRAPAROUND MODE. 


THE DIAGNOSTIC DOES NOT DO ANY TESTING OF THE RH70 CONTROLLER 
WHEN IT 1S USED TO TEST RPO4/5/6 DISK DRIVES CONNECTED TO 
THAT TYPE OF CONTROLLER. IT 1S ASSUMED THAT THE RH/0 
SPECIFIC CONTROLLER DIAGNOSTICS HAVE BEEN SUCCESSFULLY RUN TO 
COMPLETION BEFORE THIS PROGRAM IS RUN. 


REQUIREMENTS 
EQUIPMENT 


PDP=-11 COMPUTER WITH CONSOLE TELETYPE, AND AN RPO4/5/6 DISK SYSTEM. 


THE RPO4/5/6 DISK SYSTEM WILL CONSIST OF AN RH11/RH70 CONTROLLER, 
AND DISK CONTROL LOGIC (DCL). THE CABLE FROM THE DCL CAN BE 
CONNECTED TO THE MDLI, BUT IF NOT THAT CABLE MUST BE PROPERLY 
TERMINATED. 

STORAGE 

THIS PROGRAM REQUIRES 16K WORDS OF MEMORY. 

PRELIMINARY PROGRAMS 


THIS PROGRAM ASSUMES THAT MAINDEC-11-DZRJG- 
(LATEST REV) HAS BEEN RUN WITHOUT ERRORS 


LOADING PROCEDURE 

USE STANDARD PROCEDURE FOR LOADING .ABS TAPES 

STARTING PROCEDURE 

SWITCH 12 MUST BE SET WHEN THIS PROGRAM IS TO BE RUN USING AN 
RH70 CONTROLLER. 17 CAN BE SET AT THE FRONT PANEL, OR IN THE 
SOFWARE SWITCH REGISTER IF THE OPERATOR SO DESIRES. SEE 
PARAGRAPH 5.1 FOR A DESCRIPTION OF SOFTWARE SWITCH "REGISTER 
OPERATION. 

CONTROL SWITCH SETTINGS 


SEE SECTION 5.1 


SEQ 0003 
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4.2 


5.0 
5.1 


STARTING ADDRESS 


START AT ADDRESS 200---FOR NORMAL RUN 
START AT ADDRESS 204---T0 SELECT NON-DEFAULT PARAMETERS 
START AT ADDRESS 210---FOR UNIT SELECTION 


200 START 
ALL SWITCHES MUST BE DOWN FOR WORST CASE RUN. WITH THIS 
STARTING ADDRESS ALL THE RPO4/5/6'S ON THE SYSTEM WILL BE 

TESTED ONE AT A TIME BEFORE ‘END PASS*’ IS PRINTED OUT. 

TESTING WILL START WITH THE LOWEST UNIT NUMBER DRIVE 

THAT 1S POWERED UP (THAT IS THE LOWEST UNIT NUMBER RHAS REGISTER 
THAT RESPONDS) THEN GO ON TO THE NEXT HIGHER UNIT NUMBER 

THAT IS POWERED UP. 


204° RESTART 

SAME AS 200 START WITH FOLLOWING EXCEPTIONS: PROGRAM WILL 

QUERY OPERATOR FOR THE CORRECT CSR AND VECTOR ADDRESS OF THE RHXX 
CONTROLLER. WHEN THIS ACTION HAS BEEN COMPLETED, THE PROGRAM 
WILL AUTOMATICALLY RESTART FROM ADDRESS ne WITH THE SAME 
CONVENTIONS AS DESCRIBED FOR A 200 START 


210 START 

ALL SWITCHES MUST BE DOWN FOR WORST CASE RUN. WITH THIS 
STARTING ADDRESS THE CONSOLE TELETYPE WILL ASK FOR THE UNIT 
NUMBER 10 BE TESTED. THEN ONLY THAT UNIT WILL BE TESTED 
FOR EACH PASS OF THE PROGRAM. 


PROGRAM AND/OR OPERATOR ACTION 

1. LOAD THE PROGRAM INTO MEMORY. 

SET STARTING ADDRESS ON THE SWITCH REGISTER 
PRESS "LOAD ADDRESS". 


SET ‘OPERATIONAL SWITCH SETTINGS’ (SEE SECTICN 5.1) 
WORST CASE IS ALL SWITCHES DOWN. 


5. PRESS "START". 


6. FOR THE FIRST PASS EACH TEST WILL BE EXECUTED ONCE 
ON THE DRIVES PRESENT OR DRIVE SELECTED BEFORE ‘'END 
PASS'’ IS PRINTED. THE FIRST PASS WILL REQUIRE OPERATOR 
INTERVENTION IF THE PROGRAM IS NOT RUN UNDER AN ‘’ACT~11"" 
MONITOR. THE SECOND AND SUBSEQUENT PASSES WILL EXECUTE 
EACH TEST FOUR TIMES ON EACH DRIVES PRESENT OR ae 
SELECTED BEFORE ‘‘END PASS'' IS PRINTED. THE SECOND 
AND SUBSEQUENT PASSED DO NOT NEED ANY OPERATOR INTERVENTION. 


OPERATING PROCEDURE 
OPERATIONAL SWITCH SETTINGS 


If THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR (1.€. 
AN 11/34) THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH 


> wi %& 
. . cs 
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REGISTER 1S NOT PRESENT AND WILL USE AN ‘SOFTWARE’ SWITCH 
REGISTER. THE SETTINGS OF THE ‘SOFTWARE’ SWITCHES ARE 
CONTROLLED THROUGH A KEYBOARD ROUTINE WHICH IS CALLED BY 
TYPING A ‘CONTROL G'. THE PROGRAM WILL RECOGNIZE THE 
"CONTROL G* AT ANY TIME EXCEPT WHEN THE PROGRAM IS AT A 
HIGHER PRIORITY PROCESSING AN RPO4/5/6 INTERRUPT. THE 
*SOFTWARE’ SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN 
RESPONSE T10 THE PROMPT FROM THE SWITCH ENTRY ROUTINE: 


"SWR = NNNNNN NEW =' 


EACH TIME SWITCH SETTINGS ARE ENTERED, THE ENTIRE SWITCH 
REGISTER IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT 
REQUIRED. ‘RUBOUT’ AND ‘CONTROL U" FUNCTIONS MAY BE USED T0 
CORRECT TYPING ERRORS DURING SWITCH ENTRY 


ON PROCESSORS WITH HARDWARE SWITCH REGISTER, THE ‘SOFTWARE’ 
SWITCH REGISTER MAY BE USED. If THE PROGRAM FINDS ALL 16 
SWITCHES IN THE ‘UP’ POSITION, ALL SWITCH REGISTER REFERENCES 
WILL BE TO THE ‘SOFTWARE’ REGISTER AND THE PROCEDURES 
DESCRIBED ABOVE MUST BE FOLLOWED. 


SWITCH DEFINITIONS ARE GIVEN IN SECTION 9 ‘‘OPERATIONAL 
ot Ny SETTINGS'’ HOWEVER THE DETAIL DESCRIPTIONS ARE GIVEN 
H . 


SWITCH 15 - HALT ON ERROR 

WHEN THIS SWITCH IS SET, IF THE PROGRAM FINDS AN ERROR 
THEN THE APPROPIATE INFORMATION WILL BE PRINTED OUT 

AND THEN THE PROGRAM WILL HALT. AFTER THIS HALT, PRESSING 
CONTINUE’ WILL CONTINUE WITH THE PROGRAM TILL THE NEXT 
ERROR 1S FOUND WHEN THE SAME THING WILL HAPPEN. 


SWITCH 14 = LOOP ON TEST 

WHEN THIS SWITCH IS SET THE PROGRAM WILL BEGIN TC LOOP 
ON THE CURRENT TEST BEING EXECUTED. FOR EXAMPLE IF THIS 
SWITCH 1S SET WHEN THE PROGRAM IS IN TEST 10 THEN THE 
PROGRAM WILL KEEP EXECUTING ALL OF TEST 10 REPEATEDLY. 
ONE WAY TO BE SURE THAT THE PROGRAM IS IN THE EXPECTED 
TEST 1S TO SET THIS SWITCH DURING AN ERROR PRINTOUT OR 
DURING A PROGRAM HALT. 


SWITCH 13 = INHIBIT ERROR TYPEOUTS 

WHEN THIS SWITCH IS SET FURTHER ERROR PRINTOUTS WILL 

CEASE, HOWEVER OPERATOR INSTRUCTIONS SUCH AS ‘'STOP DRIVE XxX" 
WILL CONTINUE. AT THE END OF PASS ‘TOTAL NUMBER OF ERRORS 
ON THIS PASS ON DRIVE X'’ WILL BE TRUE, THAT 1S, ALTHOUGH 
PRINTOUTS WERE INHIBITED IF THAT PASS FOUND 6 ERRORS, 

IT WILL SAY SO. 


SWITCH 12 = RH70 CONTROLLER SELECT 

THIS SWITCH MUST BE SET AT THE START OF THE PROGRAM WHEN THE 
DISK DRIVES TO BE TESTED ARE CONNECTED TO AN RH70 

CONTROLLER. 11 MUST NOT BE SET WHEN DISK DRIVES TO BE TESTED 


SEQ 0005 
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ARE CONNECTED TO AN RH11 CONTROLLER. 


SWITCH 11 = INHIBIT ITERATIONS 
WHEN THIS SWITCH IS SET THE PROGRAM ON SECOND PASS WILL 
ee iene EACH TEST FOUR TIMES BUT WILL DO EACH TEST 

L . 


SWITCH 10 = BELL ON ERROR 

WHEN THIS SWITCH IS SET, if THE PROGRAM FINDS AN ERROR 

THE “‘BELL’’ OR “‘ALARM’’ WILL BE SOUNDED. THIS SWITCH IS USEFUL 
WHEN SWITCH 11 1S SET YET INFORMATION IS NEEDED WHEN ANY ERROR 

1S DETECTED. TAKE THE EXAMPLE OF A PROGRAM LOOPING ON A TEST WITH 
SWITCH 11 SET TO HELP SCOPING. THEN IF THIS SWITCH IS 

SET AND THE BELL OR ALARM SOUNDS IT MEANS THAT THE ERROR 

1S PRESENT BUT IF THE BELL OR ALARM STOPS IT MEANS THAT 

THE ERROR IS NOT PRESENT. 


SWITCH 9 = LOOP ON ERROR 

WHEN THIS SWITCH IS SET, IF THE PROGRAM FINDS AN ERROR 

THEN GENERALLY THE PROGRAM WILL LOOP BACK TO THE LAST 
EXECUTED ‘’SCOPE’’ STATEMENT. IF ON THE SECOND TIME 

THROUGH AN ERROR IS FOUND IT WILL AGAIN LOOP BACK 10 

THAT “"SCOPE'’ STATEMENT. THIS LOOPING WILL CONTINUE AS LONG 
AS THE ERROR IS PRESENT AND THIS SWITCH IS SET. HOWEVER 

IF THE ERROR 1S NOT PRESENT AT ANY TIME THEN IT WILL 
CONTINUE NORMALLY WITH THE PROGRAM. EACH TIME THE ERROR 

1S ENCOUNTERED PRINTOUT WILL TAKE PLACE UNLESS SWITCH 11 

1S ALSO SET. DURING BEGUG, USING A SCOPE, IT IS RECOMMENDED 
THAT SWITCH 11 1S ALSO SET. 


NOTE: ALSO SEE SECTION 8.3 


SWITCH 8 - LOOP ON TEST IN SWR <7:0> 

THIS IS A SPECIAL SWITCH. WHEN SET SWITCHES 0 THRU 7 
HAVE ONE MEANING AND WHEN RESET SWITCHES 0 THRU 7 HAVE 
ANOTHER MEANING. THIS MEANS THAT ANY SETTING OF SWITCH 
0 THRU 7 MUST BE DONE WITH SWITCH 8 IN THE APPROPIATE 
POSITION. WHEN THIS SWITCH IS SET THEN SWITCHES 0 THRU 
7 GIVE THE TEST NUMBER TO BE LOOPED ON. FOR EXAMPLE 
WITH SWITCH 8 SET AND SWITCH 3 SET THE PROGRAM WILL LOOP 
ON TEST 10. HOWEVER THIS SETTING MUS’ BE DONE AT THE 
BEGINNING OF THE PROGRAM THEN ALL THE TESTS FROM 1 TC 10 
WILL BE EXECUTED AND THEN TEST 10 WILL BE REPEATED OVER 
AND OVER AGAIN. WHEN THIS SWITCH IS NOT SET THEN SWITCHES 
0 THRU 7 HAVE THE MEAING ITS NAME INDICATES. 

FOR EXAMPLE SWITCH 7 IS ‘’STOP FURTHER COMPARES: THAT 1S 
IF SWITCH 8 1S NOT SET AND SWITCH 7 IS SET THEN WHEN A 
DATA ERROR IS DETECTED NO FURTHER COMPARES WILL BE DONE. 
FOR EXAMPLE IN A 256 WORD BUFFER IF ALL THE WORDS ARE IN 
ERROR THEN AFTER SEEING THE PRINTOUT FOR THE FIRST FEW 
WORDS SETTING SWITCH 7 ONLY WILL STOP FURTHER PRINTOUTS 
OF THIS ERROR AND GO ON WITH THE TEST RATHER THAN PRINT 
ALL THE 256 WORDS. HOWEVER IF THIS WAS DONE WITH SWITCH 11 


SEQ 0006 
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THEN THE NEXT ERROR THAT THE PROGRAM DETECTS IN A_SUB- 
SEQUENT TEST WILL ALSO BE LOST. BUT WITH SWITCH 7, ONLY 
THIS GROUP OF DATA ERRORS ARE NOT PRINTED OUT. ANOTHER 
EXAMPLE OF SWITCH 8 BEING LOW 1S WITH SWITCH 6, WHICH 

1S “ECC TEST-COMPARE END RESULT ONLY’. THAT IS IF SWITCH 
8 1S NOT SET AND SWITCH 6 IS SET THEN ON ECC TESTS (TEST 
120 THRU TEST 134) INSTEAD OF COMPARING CONTENTS OF THE 
POSITION REGISTER AND PATTERN REGISTER AFTER EVERY CLOCK, 
COMPARES WILL ONLY BE DONE AT THE END OF ALL THE CLOCKS. 


NOTE: ALSO SEE SECTION 8.3 


SWITCH 7 = STOP FURTHER COMPARES IF SWO8 IS LOW. 

IF SWITCH 8 IS SET AND THIS SWITCH 1S ALSO SET THEN THIS 
SWITCH GIVES THE TEST NUMBER TO BE LOOPED ON AS INDICATED 
IN THE DESCRIPTION OF SWITCH 8. IF SWITCH 8 IS NOT SET 

AND THIS SWITCH IS SET THEN THE PROGRAM WILL DO AS THE 

NAME INDICATES. FOR EXAMPLE IN A 256 WORD BUFFER IF ALL 
THE WORDS ARE IN ERROR THEN AFTER SEEING THE ERROR PRINTOUTS 
FOR THE FIRST FEW WORDS THEN SETTING SWITCH 7 WITH SWITCH 8 
NOT SET WILL STOP THE PRINTOUT OF ALL 256 WORDS BUT WILL 
NOT STOP THE PRINTOUT OF ANOTHER ERROR IN ANY SUBSEQUENT 
TEST. IT IS EXPECTED THAT SWITCH 7 AFTER BEING SET FOR 

A WHILE TO STOP PRINTING ALL THE 256 WORDS WILL BE RESET 
AGAIN TO ENABLE THE PRINTING OF OTHER DATA ERRORS. 


SWITCH 6 - ECC TEST-COMPARE END RESULTS ONLY IF SwWO8 IS LOW 
IF SWITCH 8 IS SET AND THIS SWITCH IS ALSO SET THEN THIS 
SWITCH GIVES THE TEST NUMBER TO BE LOOPED ON AS INDICATED 
IN THE DESCRIPTION OF SWITCH 8. IF SWITCH 8 IS NOT SET 

AND THIS SWITCH 1S SET THEN ON ECC TESTS (TEST 120 THRU 
TEST 134) INSTEAD OF COMPARING CONTENTS OF THE POSITION AND 
PATTERN REGISTERS AFTER EVERY CLOCK, COMPARES WILL BE DONE 
ONLY AT THE END OF ALL THE CLOCKS. 


SUB-ROUTINE ABSTRACTS 

SEE SECTION 9 ‘‘SUBROUTINES"’ 

ERRORS 

ERROR PRINTOUTS CONTAIN THE ERROR ADDRESS AND OTHER 
PERTINENT INFORMATION CONCERNING THE PARTICULAR FAILURE. 
THIS INFORMATION MAY BE THE CONTENTS OF RELEVANT RPO4 
REGISTERS OR GOOD/RECEIVED DATA. IF THE ERROR OCCURRED IN A 
SUBROUTINE, THE ADDRESS OF THE SUBROUTINE CALL 1S ALSO 
GIVEN. REFER TO THE PROGRAM LISTING AT THE STATED 
ADDRESS TO DETERMINE THE CAUSE OF THE ERROR. 

*FATAL® ERRORS 


IN THE EVENT THAT THE DISK DRIVE BECOMES UNAVAILABLE 10 THE 


SEQ 0007 
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8.0 
8.1 


8.2 


8.3 


CONTROLLER, POWERS DOWN, OR CERTAIN CRITICAL STATUS BITS 
CANNOT BE CLEARED PRIOR TO THE START OF A T4ST SEQUENCE - 
THIS INFORMATION WILL BE COMMUNICATED TO THE OPERATOR. IN 
ADDITION, THE TTY BELL WILL RING AND THE PROGRAM WILL HALT. 
1T 1S SUGGESTED THAT IF THIS HAPPENS THE OPERATOR LOAD 
ADDRESS 200 (210) AND RESTART THE PROGRAM AS A FIRST ATTEMPT 
TO SOLVE THE PROBLEM. IF THE FAILURE CONTINUES TO OCCUR, 
THERE ARE TWO OPTIONS FOR THE OPERATOR: 


1. LOOK IN THE TEST LISTING FOR THE ‘HALT’ 
INSTRUCTION AND REPLACE IT PLUS THE TWO WORDS 

("TYPE ,CPHALT'’) ABOVE WITH "NOP'S. WITH TTY ERROR 
PRINTOUTS INHIBITED, A SCOPE LOOP CAN BE INITIATED 
FOR THE TEST IN QUESTION. 


2. GO BACK AND RERUN DZRPS AS IT IS QUITE POSSIBLE 
THAT A HARD FAILURE HAS OCCURRED IN ONE OF THE 
HARDWARE REGISTERS. 


IT 1S ALSO POSSIBLE TO CONTINUE FROM THE HALT POINT, BUT THIS 
1S NOT RECOMMENDED AS ALL FOLLOWING TESTS WILL EXHIBIT THE 
SAME SYMPTOMS AND GIVE MISLEADING ERROR PRINTOUTS. 


RESTRICTIONS 


IF THERE 1S A DRIVE CONNECTED THEN THE OPERATOR MUST HAVE 
THE DRIVE PORT SWITCH LOCKED EITHER ON PORT A OR PORT B 
BUT NEVER LEAVE IT IN THE PROGRAMMABLE STATE. IF THERE 
1S NO DRIVE CONNECTED THEN THE CABLE NORMALLY GOING FROM 
THE DCL TO THE MDL] MUST BE PROPERLY TERMINATED. 


SWITCH 12 MUST BE SET WHEN RUNNING ON AN RH70 CONTROLLER AND 
1T MUST NOT BE SET WHEN RUNNING ON AN RH11 CONTROLLER. 
BECAUSE OF THIS FACT, THE PROGRAM CANNOT BE RUN IN CHAIN MODE 
WHEN USING THE SOFTWARE SWITCH REGISTER AS THE ROUTINE WHICH 
a io ~ SWIICH REGISTER SETTINGS 1S NOT OPERABLE WHEN IN 
CHAIN MODE. 


MISCELLANEOUS 
EXECUTION TIME 


THE FIRST PASS OF THE PROGRAM WILL TAKE 1.75 MINUTES PER 
DRIVE. SUBSEQUENT PASSES WILL TAKE 7 MINUTE. 


STACK POINTER . 


THE STACK 1S INITIALLY SET TO 1000 
OPERATOR SELECTABLE SCOPE LOOPS 


HERE 1S A DETAILED EXPLAINATION OF HOW THE LOOP ON ERROR WORKS. 


FOR INSTRUCTIONS REGARDING USAGE OF THESE LOOPS, HIT CONTROL 
C ANY TIME WHILE THE PROGRAM 1S RUNNING. ON HITTING AN ERROR 
1f THE LOOP ON ERROR SWITCH IS SET, THE PROGRAM GOES BACK 

- USUALLY BACK TO THE BEGINNING OF THE TEST. 


SEQ 0008 
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WHEN THIS OPERATOR SELECTABLE SCOPE LOOP 1S USED THEN THE POINT 
THE PROGRAM GOES BACK TO CAN BE CHANGED. 

THE RESTRICTIONS TO THE POINT WHERE THE PROGRAM CAN GO ARE: - 

1. 17 MUST BE WITHIN THE TEST UNDER CONSIDERATION 

2. LOOP ON ERROR SWITCH MUST BE SET 

3. THE ERROR MUST OCCUR WITHIN THE TEST UNDER CONSIDERATION 

If THE ERROR DOES NOT OCCUR WITHIN THE TEST UNDER CONSIDERATION 
THE PROGRAM WILL REVERT TO NORMAL OPERATION. HOWEVER, IF LOOP ON 
TEST SWITCH 1S SET AND THIS OPERATOR SELECTABLE SCOPE LCOP IS USED 
THEN THE PROGRAM WILL LOOP BACK TO THE SELECTED POINT WHEN IT 
COMES TO THE END OF THE TEST UNDER CONSIDERATION. 


AFTER LOOPING FOR SOME TIME IF THE LOOP SWITCH IS PUT DOWN THEN 
NORMAL OPERATION WILL CONTINUE. 


PROGRAM REVISION HISTORY 


PROGRAM DESCRIPTION 


THE FOLLOWING SECTIONS DESCRIBE EACH TEST AND SUBROUTINES 

IN DETAIL AND CAN ALSO BE USED AS AN INDEX TO THE LISTING. 
THE LEFT MOST COLUMN IS THE LINE NUMBER WITHIN THE LISTING 
te THAT ITEM WILL BE FOUND. 


SEQ 0009 
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TITLE CZRJHDO,RPO4/5/6 DSKLS CTRLR2 
s*COPYRIGHT (C) 1976,1978 

:*DIGITAL EQUIPMENT CORP. 

5 SIN Ps MASS. 01754 


:sPROGRAM BY PETE BLACKSTONE 


‘eTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
; *PACKAGE (MAINDEC=11-DZQAC-C3), JAN 19, 1977. 


STENT EN SONS OEN SENS SON SENS SONS OEN JOENSEN SONS JENS SONS JOENSEN ONS ON: 
SPENT ONSJ ON SJ ON ON SON eNO Se SON SON JON SON SON SON SONS SON ON: 
STENT ONSEN JONSON JON Se Se Se Se SON SON SON SON SONS ONS SON ON: 


DRIVE MUST BE LOCKED ON PORT A OR PORT B 


SANA NO Ne Ne NO NNO NN Ne NO Ne Ne Ne Ne Ne Ne Ne 
ST Ne Ne NO Ne Ne Ne Ne Ne Ne Ne Ne Ne Ne Ne Nes Nes Nes Ne 
pAiNe Ne Ne Ne Ne Ne Ne Ne Ne Ne Ne Ne Ne Ne Ne Ne Nes Ne 


; INTERNAL PROGRAM MACROS BEGIN HERE 


pterrenrerrererrererererererterereees 


oé RARER AREA ketAeeeteeeeAeeeeeKreeeee 


:+NOTE “ALL MACRO CALLS BEGINNING WITH ''.$"' ARE SUPPLIED FROM AN 
EXTERNAL SYSMAC.SML PACKAGE WHICH MUST BE MADE AVAILABLE 
;* TO THE SOURCE PROGRAM AT ASSEMBLY TIME. 


. s eeeeeceeceeeeteeneereereerserrectreeennceereceeeeseerereeereece 


-SBTTL OPERATIONAL SWITCH SETTINGS 


HALT ON ERROR 

LOOP ON TEST . 

INHIBIT ERROR TYPEOUTS 

RH70 CONTROLLER SELECT 

INHIBIT ITERATIONS 

BELL ON ERROR 

LOOP ON ERROR 

LOOP ON TEST IN SWR<7:0> 

STOP FURTHER COMPARES IF SWO8 IS LOW 

ECC TEST-COMPARE END RESULTS ONLY IF SWO8 IS LOW 


Be Se Be Be Be Be Be Be Be Be Be He He 
eereee#seseeneneneee 


anNWOO—wWsSW" 


SEQ 0010 
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os6 -SBTTL BASIC DEFINITIONS 
530 ;tINITIAL ADDRESS OF THE STACK POINTER *** 1000 *** 
531 001060 STACK= 1000 
532 -EQUIV) EMT,ERROR ;;BASIC DEFINITION OF ERROR CALL 
th -EQUIV. 10T,SCOPE >;BASIC DEFINITION OF SCOPE CALL 
535 > *MISCELLANEOUS DEFINITIONS 
536 000011 HT= 11 ;;CODE FOR HORIZONTAL TAB 
537 000012 LF= 12 ;;CODE FOR LINE FEED 
538 000015 CR= 15 ;;CODE FOR CARRIAGE RETURN 
539 000200 CRLF= 200 ;;CODE FOR CARRIAGE RETURN-LINE FEED 
540 177776 PS= 177776 ;;PROCESSOR STATUS WORD 
541 EQUIV PS,PSW 
542 177774 STKLMT= 177774 7;STACK LIMIT REGISTER 
543 177772 PIRQ= 177772 7;PROGRAM INTERRUPT REQUEST REGISTER 
544 177570 DSWR= 177570 7 HARDWARE SWITCH REGISTER 
cea 177570 DDISP= 177570 ;; HARDWARE DISPLAY REGISTER 
547 7 *GENERAL PURPOSE REGISTER DEFINITIONS 
548 000000 RO= %0 >;GENERAL REGISTER 
549 000001 Ri= 1 ;;GENERAL REGISTER 
550 000002 R2= %2 ;;GENERAL REGISTER 
551 000003 R3= 23 ;;GENERAL REGISTER 
552 000004 R4= 4G ;;GENERAL REGISTER 
553 000005 R5= %5 ;;GENERAL REGISTER 
554 000006 R6= %6 ;;GENERAL REGISTER 
555 00007 R7= 47 ;; GENERAL REGISTER 
556 000006 SP= %6 3:STACK POINTER 
+44 0060007 PC= 47 ;;PROGRAM COUNTER 
559 ;*PRIORITY LEVEL DEFINITIONS 
560 000000 PRO= 0 ;;PRIORITY LEVEL 0 
561 000040 PRi= 40 ;;PRIORITY LEVEL 1 
562 000100 PR2= 100 :;PRIORITY LEVEL 2 
563 000140 PR3= 140 ;;PRIORITY LEVEL 3 
564 000200 PR4= 200 ;;PRIORITY LEVEL 4 
565 000240 PR5= 240 7;PRIORITY LEVEL 5 
566 000300 PRO6= 300 ;;PRIORITY LEVEL 6 
ot 000340 PR7= 340 7;PRIORITY LEVEL 7 
6 
569 z*'"SWITCH REGISTER’ SWITCH DEFINITIONS 
570 100000 SWw15= 100000 
571 040000 SW14= 40000 
572 020000 $W13= 20000 
573 010000 SWwi2= 10000 
574 004000 SWwil= 4000 
575 002000 Swi0= 2000 
576 001000 swO9= 1000 
577 000400 swO8= 400 
578 000200 SwO7= 200 
579 000100 SwO6= 100 
580 000040 swO5= 40 
58 000020 Sw04= 20 
582 000010 swO3= 10 


583 000004 SWO2= 4 
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000002 
000001 


100000 


000001 


000004 
000010 


000240 


MACY11 "anait be 24-MAY-79 
ASIC DEFINITIONS 
SwOl= 2 
swoo= 1 


“EQUIV $W00,SWO 


>= 

B1T15= 0 

B1T14= 40000 
B1T13= 20000 
BIT12= 10000 
BIT11= 4000 
B1T10= 2000 
B1T09= 1000 
BITO08= 400 

B1T07= 200 

B1T06= 100 

BITOS= 40 

B1T04= 20 

81T03= 10 

BITO02= 4 

BITO1= 2 

BITOO= 1 

EQUIV B1109,B119 
EQUIV 81108,B118 
EQUIV B1T07,B1T7 
EQUIV B1T106,B116 
EQUIV B1T05,B1T5 
EQUIV B1T04,B1T4 
EQUIV B1103,B1T3 
EQUIV B1102,BI1T2 
EQUIV B1T01,B1T1 
-EQUIV 81100,B8110 


a 1 
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DATA BIT DEFINITIONS (B1T00 TO B1T15) 
100000 


; *BASIC ot TRAP VECTOR | sig 


ERRVEC= 4 
RESVEC= 10 
TBITVEC=14 
TRIVEC= 14 
BPTVEC= 14 
1OTVEC= 20 
PWRVEC= 24 
EMTVEC= 30 
TRAPVEC=34 
TKVEC= 60 
TPVEC= 64 
PIRQVEC=240 


TIME OUT AND OTHER ERRORS 


: | RESERVED AND ILLEGAL INSTRUCTIONS 


TRACE TRAP 
;;BREAKPOINT TRAP (BPT) 


Bere TRAP (101) **SCOPE*® 


POWER FAIL 
: FEMULATOR TRAP (EMT) **ERROR®® 
7:°'TRAP’’ TRAP 
:: TTY KEYBOARD VECTOR 
7: TTY PRINTER VECTO 


R 
7;PROGRAM INTERRUPT REQUEST VECTOR 


SEQ 0012 





n 1 
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CZRJHD.P11 


000174 
000176 


000046 
000052 


000200 
000204 
000210 


28-MAR-79 09: TRAP CATCHER | SEQ 0013 


000000 


000174 
000000 
060000 


000200 
000200 
000200 
000137 


000137 
000137 


~SBTTL TRAP CATCHER 


-=0 
;*ALL UNUSED LOCATIONS FROM-4 - 776 CONTAIN A **.#2,HALT" 
;*SEQUENCE TO CATCH ILLEGAL fpIRAPS AND INTERRUPTS 
Sesparaiar Sapcsipenesss 0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: .wORD 0 : ::SOFTWARE DISPLAY REGISTER 
SWREG: .WORD 0 r. :: SOFTWARE SWITCH REGISTER 


-SBTTL ACT11 HOOKS 


pp eeeerrrereererererrererererereetererereaneeeeteteneeneeneeesenese 


“HOGKS REQUIRED BY ACT11 t 
SSvPC=.. SAVE PC 
SENOAD ::1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
“woRD 20000 ::2)S61 LOC. 52 TO 20000 
" =$SVPC tt RESTORE P 
\SBITL STARTING ADDRESSES 
017360 RA: jmp aWBEGIN :NORMAL START 
051550 ADDMOD: JMP aWBASECH :MODIFY DEVICE PARAMETERS 
017350 JMP aWBEGINZ SSELECT DRIVE START 


s*STARTING ADDRESS 200 FOR NORMAL STARTS 
7*THIS WILL TEST ALL RPO4'S ON THE SYSTEM A SINGLE DRIVE AT A TIME 


z*STARTING ADDRESS 204 WILL LOAD NON-DEFAULT PARAMETERS 
;*AND AUTO RESTART AT 200 AFTER LOADING PARAMETERS. 


7*STARTING ADDRESS 210 WILL TEST ONLY ONE SPECIFIED DRIVE 


B 2 
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CZRIHD.P11 28-MAR-79 09:16 MEMORY MANAGEMENT DEFINITIONS SEQ 0014 
4 -SBTTL MEMORY MANAGEMENT DEFINITIONS 
3 :*KT11 VECTOR ADDRESS 
4 +4 000250 MMVEC= 250 
+H :*KT11 STATUS REGISTER ADDRESSES 
687 177572 SRO= 177572 
688 177574 SR1= 177574 
689 177576 SR2= 177576 
699 172516 SR3= 172516 
O92 s*KERNEL ‘‘l'' PAGE DESCRIPTOR REGISTERS 
694 172300 KIPDRO= 172300 
695 172302 KIPDR1= 172302 
696 172304 KIPDR2= 172304 
697 172306 KIPDR3= 172306 
698 172310 KIPDR4= 172310 
699 172312 KIPDRS= 172312 
700 172314 KIPDR6= 172314 
rl 172316 KIPDR7= 172316 
by :*KERNEL ‘'l'’ PAGE ADDRESS REGISTERS 
705 172340 KIPARO= 172340 
706 172342 KIPARI= 172342 
707 172344 KIPAR2= 172344 
708 172346 KIPAR3= 172346 
709 172350 KIPAR4= 172350 
710 172352 KIPARS= 172352 
711 172354 KIPAR6= 172354 
712 172356 KIPAR7= 172356 
713 
714 
715 001110 .=1110 ; 


oo 


C 


ZRJHD.P 


001102 


WWM AIP PU PON es es SS S| OOO 
ViFEMOASNMOSUFSNOD LW 


o 


001160 
001162 


001100 
000000 
00 


0 
000000 
000000 
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~SBTTL COMMON TAGS 


;eeeeeeereerreeerrerreerreeeeteeeereereeeeeeeeeeeeeeteeteneeeeeee 


 STHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
:*USED IN THE PROGRAM. 


-=1100 
SCMTAG: 
SPASS: .WORD 
STSTNM: .BYTE 
SERFLG: .BYTE 
SICNT: .WORD 
SLPADR: .WORD 
SLPERR: .WORD 
SERTTL: .WORD 
SITEMB: .BYTE 
SERMAX: .BYTE 
SERRPC: .WORD 
SGDADR: .WORD 
SBDADR: .WORD 
SGDDAT: .WORD 
SBDDAT: .WORD 
» WORD 
«WORD 
$AUTOB: .BYTE 
SINTAG: .BYTE 
» WORD 
SWR : . WORD 


DISPLAY: .WORD 
$TKS: 177560 
$TKB: 177562 
$TPS: 177564 
$TPB: 177566 


$NULL: .BYTE 
SFILLS: .BYTE 
SFILLC: .BYTE 
STPFLG: .BYTE 
SREGAD: .WORD 
$REGO: .WORD 
$REG1: .WORD 
$REG2: .WORD 
SREG3: WORD 
$REG4: .WORD 
$SREGS: .WORD 
$TMPO: .WORD 
STMP1: .WORD 
STMP2: .WORD 
STMP3: .WORD 
STMP4: .WORD 
STMP5: WORD 
STIMES: 0 

SESCAPE:0 


$QUES: ASCII 
SCRLF: ASCII 


:;START OF COMMON TAGS 

;;CONTAINS PASS COUNT 

;;CONTAINS THE TEST NUMBER 

;; CONTAINS ERROR FLAG 

;:CONTAINS SUBTEST ITERATION COUNT 
;;CONTAINS SCOPE LOOP ADDRESS 
;;CONTAINS SCOPE RETURN FOR ERRORS 
;;CONTAINS TOTAL ERRORS DETECTED 
;;CONTAINS ITEM CONTROL BYTE 

;: CONTAINS MAX. ERRORS PER TEST 
;;CONTAINS PC OF LAST ERROR INSTRUCTION 
;;CONTAINS ADDRESS OF 'GOOD' DATA 
;;CONTAINS ADDRESS OF ‘BAD’ DATA 
;;CONTAINS ‘GOOD’ DATA 

;;CONTAINS 'BAD' DATA 
;;RESERVED--NOT TO BE USED 


; AUTOMATIC MODE INDICATOR 
;; INTERRUPT MODE INDICATOR 


;;ADDRESS OF SWITCH REGISTER 
;;ADDRESS OF DISPLAY REGISTER 
33: 1TY KBD STATUS 
3; TTY KBD BUFFER 
:; TTY PRINTER STATUS REG. ADDRESS 
3; TTY PRINTER BUFFER REG. ADDRESS 
;; CONTAINS NULL CHARACTER FOR FILLS 
>;CONTAINS # OF FILLER CHARACTERS REQUIRED 
3; INSERT FILL CHARS. AFTER A ‘LINE FEED" 
33°'TERMINAL AVAILABLE" FLAG (B11<07>=0=YES) 
3: CONTAINS THE ADDRESS FROM 
;;WHICH (S$REGO) WAS OBTAINED 
>;CONTAINS (($REGAD) +0) 
>; CONTAINS (($REGAD) +2) 
>; CONTAINS (($REGAD) +4) 
>: CONTAINS ((SREGAD) +6) 
>: CONTAINS (($REGAD) +10) 
;; CONTAINS ((S$REGAD) +12) 
;;USER DEFINED 
;;USER DEFINED 
;;USER DEFINED 
;;USER DEFINED 
;;USER DEFINED 
+ USER DEF INED 
;;MAX. NUMBER OF ITERATIONS 
: ESCAPE ON ERROR ADDRESS 
5 ahepcanielreathde i: CODE FOR BELL 
/? ; ;QUESTION MARK 
4a 3; CARRIAGE RETURN 


oOoooooo°o°oo—-cCOCo°CoCoCoo 


o°9o 
om 
—<£ 
nw 
vo 


Nm 


COOCOCOoOCOCOCOCOO F8O-NoO 


SEQ 0015 
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;;LINE FEED 


ppeteererrerererrereeeererenrereretietererereneteeeeeeRneeKere eee 


SEQ 0016 


aon 


toon é Sata DSKLS ime 
CZRJ 28-MAR-79 09:1 


HD .P 


co] 


SCOBNOUESWN—-OOW 


ee ee ee et et ot 


001226 


001226 
001230 


001236 
001240 


001242 
001244 


001246 
001250 


002136 
005451 


002221 
010463 


012350 
012666 


002221 
010246 
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:*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
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ERROR POINTER TABLE 


~SBTTL ERROR POINTER TABLE 


;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 


;*LOCATION SITEMB. 


> *NOTE1: 
: #NOTE2: 


. *&. 
a ad 


SERRTB: 


;1TEMI 


7 ITEM2 


7 1TEM3 


DH33 


IF SITEMB 1S 0 THE ONLY PERTINENT DATA IS (SERRP 


EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


;;POINTS TO THE ERROR MESSAGE 
;;POINTS TO THE DATA HEADER 
;;POINTS TO THE DATA 

;;POINTS TO THE DATA FORMAT 


;WRONG DATA IN READING OR WRITING HARDWARE REGISTER 
PC 


;REG. ADDR. 

;GOOD DATA 

sRECEIVED DATA 
sSERRPC,STSTNM,REGADR,SGDDAT ,$BDDAT 


. 
a ’ ’ ’ ’ 


;ERROR ON DATA COMMAND 


sPC 

3PC OF JSR 

s TEST NO 

;WORD NO. 

;GOOD DATA 
:CONTENTS OF RHCS1 
;CONTENTS OF RHDS1 
= CONTENTS OF RHER1 


SERRPC PCUSR,STSTNM,ERWORD ,SGDDAT,CS1,DS1,ER1 


:0,0,0,1,0,0,0,0 


;ERROR ON DATA COMMAND 


PC 

;PC OF JSR 
; TEST NO 
;WORD NO. 
;GOOD DATA 


THIS NUMBER INDICATES WHICH ITEM IN THE by & PERTINENT. 


SEQ 0017 


on 
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001252 
001254 


001256 
001260 


001262 
001264 


001266 
001270 
001272 
001274 


001276 
001300 


001302 
001304 


001306 
001310 


002221 
010050 


000000 
000000 
012302 
012645 


002250 
010246 


002250 
005567 


R2 
16 
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ERROR POINTER TABLE 


7 1TEM4 


71 TEMS 


7 1TEM6 


7 1TEM7 


D132 
DF 32 


EM2 
DH31 


D132 
DF 32 


EM6 
DH2 


SEQ 0018 


;BAD DATA 

;CONTENTS OF RHCS1 
;CONTENTS OF RHDS1 
;CONTENTS OF RHERI 


sSERRPC,PCJSR,STSTNM,ERWORD,SGDDAT ,SBDDAT,CS1,0S1,ER1 


Py ’ .% ia ’ . ’ . . 


;ERROR ON DATA COMMAND 


sPC 

sTEST NO 

;sJ0RD NO. 

;GOOD DATA 

;BAD DATA 
sCONTENTS OF RHCS1 
;CONTENTS OF RHDS1 
sCONTENTS OF RHER1 


;SERRPC,STSTNM,ERWORD ,SGDDAT ,$BDDAT,CS1,DS1,ER1 


° ° ols . . . ° ’ 


SERRPC ,STSTNM,ERWORD ,SGDDAT,$BDDAT,CS1,DS1,ER1 
3:0,0,1,0,0.0,0,0. 


ERROR ON WRITE HEADER AND DATA 


PC 
sPC OF JSR 

sTEST NO 

sWORD NO. 

;GOOD DATA 

;BAD DATA 
;CONTENTS OF RHCS1 
sCONTENTS OF RHDS1 
sCONTENTS OF RHERI 


sSERRPC ,PCJSR,STSTNM,ERWORD ,SGDDAT ,$BDDAT,(S1,DS1,ER1 
:0,0,0,1,0.0.0,0.0. 


_ ON WRITE HEADER AND DATA 


“TEST NO 
:WORD NO. 


G 2 
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CZRJHD.P11 28-MAR-79 09:16 ERROR POINTER TABLE SEQ 0019 
886 ;GOOD DATA 
887 ;BAD DATA 
888 001312 012012 DT3 sSERRPC,STSTNM,ERWORD,SGDDAT ,$BDDAT 
889 001314 012527 DF3 :0,0,1,0,0, 
890 
891 
892 4 71TEM10 
893 001316 000000° 0 : 
894 001320 000000 0 ; 
895 001322 012012 DT3 sSERRPC,STSTNM,ERWORD,$SGDDAT ,$BDDAT 
896 001324 012527 DF3 :0,0,1,0,0, 
897 
898 
899 s1TEM11 
900 001326 002307 EM11 ; CONTROLLER OR DRIVE STATUS 
901 001330 005701 DH11 7PC 
902 ; TEST NO 
903 s;FAILING REG. ADDR 
904 ;CONTENTS OF RHCS1 
905 sCONTENTS OF RHCS2 
906 sCONTENTS OF RHDS1 
907 sCONTENTS OF RHER1 
908 001332 012026 OT11 :SERRPC,$STSTNM,$BDADR,CS1,CS2,DS1,ER1 
909 001334 012534 DF11 :0,0.0,0.0, 
910 
911 
912 s1TEM12 
at 001336 002307 as —EM11 s;WRONG DATA FROM SILO 
915 001340 005451 DH1 7PC 
916 ;REG.ADDR 
917 ;GOOD DATA 
918 sRECEIVED DATA 
919 001342 011764 0T1 ;SERRPC .REGADR,SGDDAT ,$BDDAT 
920 001344 012516 DF I :0,0,0,0 
921 
922 
923 s1TEM13 
924 001346 000000 ' 0 
925 001350 000000 0 
926 001352 011764 oT1 ;SERRPC,TSTNM,REGADR,$GDDAT ,$BDDAT 
927 001354 012516 DF 1 :0,0,0,0.0 
928 
929 
930 s1TEM14 
931 001356 002342 EM14 sREGISTER FAILED 
932 001360 006056 DH14 7 PC 
933 sFAILING REG. ADDR 
934 sCONTENTS OF FAILING REG. 
935 sCONTENTS OF RHCS1 
936 sCONTENTS OF RHCS2 
937 sCONTENTS OF RHDS1 
938 sCONTENTS OF RHER1 
939 001362 012046 D114 ;SERRPC ,SBDADR,SBDDAT,CS1,C$2,0S1,ER1 
940 001364 012543 DF14 :0,0,0,0,0,0, 


aon 
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CZRJHD.P11 28-MAR-79 09:1 ERROR POINTER TABLE SEQ 0020 
942 
943 s1TEMIS 
944 001366 002362 EM15 :SPECIFIED REG. NON EXISTANT SO ABORT 
945 . ; PROGRAM 
946 001370 006255 DH15 7 PC 
947 ;ADDR. OF REG 
948 001372 012070 D115 ;SERRPC,TEMP1 
949 001374 012553 DF15 :0,0 
950 
951 
952 s1TEM16 
953 001376 002432 EM16 sWAIT LOOP FAILED 
954 001400 006305 DH16 7 PC 
955 sWAT PC 
956 ;BIT WANTED 
957 ;REG. ADR. 
958 = REG. CONT. 
959 001402 012100 D116 sSERRPC,STMP3,$1TMP1,$1TMPO,S$BDDAT 
960 001404 012556 DF16 :0,0,0, 
961 
962 
963 s1TEMI7 
964 001406 002453 EM17 sWRITE CHECK FAILING 
965 001410 006443 DH17 7PC 
966 sTEST NO 
967 sCONTENTS OF RHBA 
968 sCONTENTS OF RHDB 
969 sCONTENTS OF RHWC 
970 :CONTENTS OF RHCS1 
971 :CONTENTS OF RHCS2 
972 001412 012116 D117 $ERRPC, STSTNM,$BA,DB,wC,CS1,CS2 
973 001414 012563 DFI7 :0,0,0, 0,0,0,0 
974 
975 
976 3 1TEM20 
977 001416 002477 —EM20 sREGISTER FAILING 
978 001420 006620 DH20 7PC 
979 sTST NO 
980 sCONTENTS OF RHER1 
981 :CONTENTS OF RHER2 
982 sCONTENTS OF RHER3 
983 sCONTENTS OF RHAS 
984 ;CONTENTS OF RHDS1 
985 001422 012136 DT20 “SERRPC, TSTNM ER1,ER2,ER3,AS,DS1 
se 001424 012572 DF 20 0,0,0, 6,0,0,0 
988 s1TEM21 
989 
990 001426 002520 EM21 : INTERRUPT FAILING 
991 001430 006774 DH21 :PC 
992 ; TEST NO 
993 ;CONTENTS OF RHCS1 
994 sCONTENTS OF RHAS 
995 ;CONTENTS OF RHDS1 
996 001432 012156 D121 sSERRPC,TSTNM,CS1,AS,DS1 
997 001434 012601 DF21 :0,0,0.0,9 


On 
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001436 


001440 


001442 
001444 


001446 


001450 


001452 


001454 


001456 


001460 


001462 
001464 


001466 


001470 
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002542 


007110 


012172 
012606 


000000 


000000 


172 
606 


oo 
— 
mr 


003143 


007204 


007204 


MACY11 "Teak te 
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s 1 TEM22 
EM22 


DH22 


DT22 
DF22 


71 TEM23 
0 


s1TEM 25 


DH24 


DT24 
DF 24 


EM25 


DH24 


we AS 
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;MISSMATCH IN DRIVE PRESENT 

;LOOKING AT RHAS AND RHCS2-NED(BIT#12) 
:DRIVE PRESENT DO NOT AGREE 

:NOTE: ON DUAL PORT SYSTEM 

DRIVE ON OTHER PORT WILL NOT GIVE NED 
;HENCE THERE WILL BE A MISSMATCH 

s LITT TP MEANS NOT PRESENT 


; TEST NO 
sRHAS UNIT 
=RHCS2 UNI? 


“SERRPC, TSTNMS, $GDDAT, SBDDAT 


sMISSMATCH IN DRIVE PRESENT 

sLOOKING AT RHAS AND RHCS2-NED(BIT#12) 
sDRIVE PRESENT DO NOT AGREE 
3177777-MEANS NOT PRESENT 

PC 

; TEST NO 

;RHAS UNIT 

sRHCS2 UNIT 


*SERRPC, TSTINMS,$GDDAT, SBDDAT 


;LOOK AHEAD REGISTER AT THE 
Dt age OF A SECTOR IS IN 


PC 

;RHDST 
;BAD RHLA 
;GOOD RHLA 
sSECTOR NO 


;SECTOR CLOCK 
;SERRPC, DST, SBDDAT,STMP1,STMP2,S$1MP5 


;LOOK AHEAD REGISTER IS 
; IN ERROR 


sPC 

;RHDST 
;BAD RHLA 
;GOOD RHLA 
sSECTOR NO 


SEQ 0021 


On 


J 2 
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CZRJHD. P11 28-MAR-79 09:1 ERROR POINTER TABLE SEQ 0022 
1054 sSECTOR CLOCK 
1055 001472 012204 D124 * SERRPC DST, SBDDAT,STMP1,STMP2,STMP3S 
1056 001474 012612 DF 24 :0,0,0,0,0 — 
1057 s1TEM26 
ieee 001476 002307 EM11 ;CONTROLLER OR DRIVE STATUS 
1060 001500 007362 DH26 
1061 [PC OF JSR 
1062 sFAILING REGISTER ADDRESS 
1063 sCONTENTS OF RHCS1 
1064 sCONTENTS OF RHCS2 
1065 :CONTENTS OF RHDS1 
oe sCONTENTS OF RHERI 
1068 001502 012224 D126 sSERRPC,PCUSR,$BDADR,CS1,CS2,DS1,ER1 
1069 001504 012621 DF 26 :0,0,0,0,0,0, 
1070 
1071 
1072 
1073 1 1EM27 
Hs 001506 002136 EM] sERROR IN READING OR WRITING HARDWARE REGISTER 
1076 001510 007560 DH27 :PC 
1077 sPC OF JSR 
1078 ; TEST NUMBER 
1079 sFAILING REGISTER 
1080 ;GOOD DATA 
1081 “RECEIVED DATA 
1083 001512 012246 D127 :SERRPC,PCUSR, TSTNM,REGADR ,$GDDAT ,SBDDAT 
1084 001514 012631 DF 27 :0,0,0,0,0,0 
1085 
1086 
1087 
1088 1 TEM30 
1089 001516 003276 —EM30 sCURRENT CYLINDER DOES NOT REFLECT DESIRED CYLINDER REG. 
1090 001520 007716 DH30 = PC 
1091 sPC OF JSR 
1092 sREGISTER ADDRESS 
1093 :GO0D DATA © 
eee ;BAD DATA 
1 
1096 001522 012264 D130 sSERRPC,PCUSR,REGADR,S$GDDAT ,$BDDAT 
1097 001524 012637 DF 30 :0,0,0,0,0 
1098 
1099 
1100 
1101 3; 1TEM31 
1102 001526 003420 EM31 ECC GENERATED 1S INCORRECT i 
1103 sEVERY WORD IN THIS SECTOR IS GIVEN IN ‘DATA USED 
1104 
1105 001530 010662 DH34 PC 
1106 “TEST NUMBER 
1107 *G00D ECCI 
1108 =GOOD EC2C 
1109 “WRITTEN ECC) 





On 
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1110 sWRITTEN ECC2 
N13 ;DATA USED 
AE 001532 012372 D134 ;SERRPC,TSTNM,GECC1,GECC2,WECC1 ,WECC2,DISK 
tb 001534 012676 DF 34 :0,0,0,0,0,0,0 
1117 
1118 7 1 TEM32 
1119 001536 003543 EM32 ;O0N READ COMMAND AFTER DATA AND ECC HAVE BEEN READ 
1120 ECC REGISTER OR RHER1 IS IN ERROR 
1121 ONLY LOWER 11 BITS OF PATTERN REGISTER 
1122 ;CAN BE READ 
Hy THIS SHUOLD MATCH LOWER 11 BITS OF ECCI 
1125 001540 0110355 DH35 sPC 
1126 ; TEST NUMBER 
1127 ;GOOD ECCI 
1128 :GO00D ECC2 
1129 ;PATTERN REGISTER 
ie ;RHER1 
44 3 001542 012412 D135 ;SERRPC,TSTNM,GECC1,GECC2,EC2.ER! 
1134 001544 012705 DF35 :0,0,0,6,0,0 
1135 
1136 
1137 
1138 7 1TEM33 
1139 001546 004032 EM33 ;HIGH COUNT BIT NOT HIGH AFTER 38859 CLOCKS 
1140 001550 011232 DH36 ;PC 
1141 :PC OF JSR 
1142 ; TEST NUMBER 
1143 ;RHMR 
1144 POSITION REG. 
1145 PATTERN REGISTER 
1146 
bys 4 001552 012434 D136 sSERRPC,PCJSR,TSTNM,MR,EC1,EC2 
4 
tes 001554 012715 DF 36 :0,0,0,0,0,0 
1151 7 1TEM34 
1152 001556 004104 EM34 ;ZERO DETECT B17 NOT HIGH WHEN THE 
1153 :32 BIT ECC REGISTER HAS ITS 21 BITS 
1154 :OF ZEROS 
1155 ERROR PRINTOUT WILL CONTINUE TILL 
1156 ;ZERO DETECT BIT IS HIGH 
1157 001560 011232 DH36 ;PC 
1158 :PC OF JSR 
1159 ; TEST NUMBER 
1160 ;RHMR 
1161 ;POSITION REG. 
$168 PATTERN REGISTER 
116 
1164 001562 012434 D136 ;SERRPC ,PCJSR,TSTNM,MR,EC1,EC2 
1165 


aon 
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CZRJHD.P11 28-MAR-79 09: ERROR POINTER TABLE SEQ 0024 
1166 001564 012715 DF 36 30,0,0,0,0,0 
1167 
1168 
1169 
1170 :1TEM35 
1171 001566 004177 EM35 :POSITION REGISTER OR 11 BITS OF 
1172 PATTERN REGISTER INCORRECT 
1173 sLOWER 11 BITS OF PATTERN REGISTER 
1174 SHOULD MATCH LOWER 11 BITS OF GOOD ECCI 
He, DATA ENVELOPE AND N-CODE ZEROS ARE IN DECIMAL 
1177. 001570 011370 DH37 sPC 
1178 : TEST NUMBER 
1179 sECC POSITION 
1180 » :GOOD POSITION 
1181 :GOOD ECC1 
1182 ;G00D ECC2 
1183 ECC PATTERN 
1184 DATA ENVELOPE 
bs 24 sN-CODE ZEROS 
Aig 001572 012452 D137 sSERRPC,TSTNM,EC1,POSITI,GECC1,GECC2,EC2,DATENV.ZCODE 
1189 001574 012723 DF 37 30,0,0,0,0,0,0,0,0 
1190 
1191 
1192 
1193 1 TEM36 
1194 001576 004476 EM36 :ON A READ COMMAND WITH NON CORRECTABLE 
1195 sERROR INSERTED DCK AND ECH SHOULD BE SET 
1196 001600 011035 DH35 PC 
1197 : TEST NUMBER 
1198 GOOD ECC1 
1199 GOOD ECC2 
1200 PATTERN REGISTER 
1201 POSITION REGISTER 
1202 sRHER1 
ce 001602 012412 D135 sSERRPC,TSTNM,GECC1,GECC2,EC2,ECi.ERI 
1 
1206 001604 012705 DF 35 70,0,0,0.0,0,0 
1207 
1208 
1209 
1210 
1211 
1212 
1213 3 1TEM37 
1214 001606 004664 EM37 ERROR ON DATA COMMAND 
1215 sWITH Al6 Al7 USED : 
1216 
1217 001610 010050 DH31 7 PC 
1218 : TEST NO 
1219 WORD NO. 
1220 :GOOD DATA 
1221 BAD DATA 


aon 


mM 2 
CZRJHDO,RPO4/5/6 DSKLS phys MACY11 30A(1052) 24-MAY-79 15:07 PAGE 26 
CZRJHD.P11 28-MAR-79 09:1 ERROR POINTER TABLE SEQ 0025 


sCONTENTS OF RHCS1 


_ 
~m 
Nm 
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1223 :CONTENTS OF RHDS1 

1eee CONTENTS OF RHER1 

1226 001612 012302 D131 sSERRPC,STSTNM, ERWORD,SGDDAT, $BDDAT,CS1,0S1,ER1 
1227 001614 012645 DF31 :0,0,1,0,0,0,0,0, 

1228 

1229 

1230 

1231 :1TEM4O 

1232 001616 000000 0 : 

1233 001620 000000 0 ; 

1234 001622 012302 D131 sSERRPC,STSTNM,ERWORD,SGDDAT,SBDDAT,CS1,0S1,ER1 
1235 001624 012645 DF31 :0,0,1,0,0,0,0,0, 

1236 

1237 

1238 ' 

1239 

1240 :1TEM41 

1241 001626 004752 EM4O THERE WAS A READ/WRITE HEADER & DATA 
1242 sERROR DURING 'DTE* TEST SETUP = THE 
1243 :TEST 1S ABORTED AT THAT POINT 

1244 001630 011607 DH40 PC 

1245 i" : TEST NO 

1246 sFAILING REGISTER ADDRESS 

1247 sCONTENTS OF RHCS1 

1248 CONTENTS OF RHCS2 

1249 :CONTENTS OF RHDS1 

1250 :CONTENTS OF RHER1 

1251 001632 012476 D140 : SERRPC,$TSTNM, SBDADR,CS1,CS2,DS1,ER1 
1252 001634 012734 DF4O :0,0,0,0,0,0 
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001636 
001640 
001642 
001644 


001646 
001650 
001652 
001654 


001656 


001724 


001726 


001734 
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014733 


013130 


014702 
014733 


MACY11 30A(1052) 


24-MAY-79 


ERROR POINTER TABLE 


;1TEM 


;1TEM 


s1TEM 


s1TEM 


7 1TEM 


s1TEM 


7; 1TEM 


;1TEM 


;1TEM 


s ERROR 


7 ERROR 


; ERROR 


; ERROR 


ERROR 


; ERROR 


7 ERROR 


; ERROR 


PC,TEST 


PC, TEST 


PC, TEST 


PC,TEST 


PC, TEST 


PC, TEST 


PC,TEST 


PC, TEST 


N 2 
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NUMBER, 


NUMBER, 


NUMBER, 


NUMBER, 


NUMBER, 


NUMBER, 


NUMBER, 


NUMBER, 


REGISTER 


REGISTER 


REGISTER 


REGISTER 


REGISTER 


REGISTER 


REGISTER 


REGISTER 


ADDRESS. 


ADDRESS. 


ADDRESS 


ADDRESS 


ADDRESS 


ADDRESS. 


ADDRESS 


ADDRESS 





SEQ 0026 


CORRECT, ACTUAL. 


CORRECT, ACTUAL. 


CORRECT, ACTUAL. 


CORRECT, ACTUAL. 


CORRECT, ACTUAL. 
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001736 


001744 


001746 


001754 


001756 
001760 
001762 
001764 


001766 
001770 
001772 
001774 


001776 


002004 


002006 
002010 
002012 
002014 


002016 


002024 


002026 


002034 


MACY11 30A(1052) 
ERROR POINTER TABLE 





24-MAY-79 


D144 ;ERROR 
D154 ; ERROR 
D144 ; ERROR 
D144 ; ERROR 
D144 ; ERROR 


8 5 
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; ERROR 


; ERROR 






PC,TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL. 


PC, TEST NUMBER. 


PC,TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL. 


PC,TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL. 


PC,TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL. 


PC, TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL. 


PC, TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL. 
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002036 


002044 


002046 


002054 


002056 
002060 
002062 
002064 


002066 


002074 


002076 


002124 


002126 
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014733 


014066 
014471 
014702 
014733 


014150 
014471 
014702 
014733 


014222 
014603 
014716 
014740 


014307 
014603 
014716 
014740 


014361 
014471 
014702 
014733 
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ERROR POINTER TABLE 


;1TEM 


;1TEM 


;1TEM 


7; 1TEM 


;1TEM 


;1TEM 


7 1TEM 


65 


;ERROR PC,TEST NUMBER, REGISTER ADDRESS CORRECT, 


;ERROR PC,TEST NUMBER, REGISTER ADDRESS CORRECT, 


ERROR PC,TEST NUMBER, REGISTER ADDRESS CORRECT, 


;ERROR PC,TEST NUMBER, REGISTER ADDRESS CORRECT, 


ERROR PC,TEST NUMBER, REGISTER ADDRESS CORRECT, 


ERROR PC, TEST NUMBER. 


ERROR PC, TEST NUMBER. 


ERROR PC,TEST NUMBER, REGISTER ADDRESS CORRECT, 


ACTUAL. 


ACTUAL. 


ACTUAL. 


ACTUAL. 


ACTUAL. 


ACTUAL. 


SEQ 0028 
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002136 


002526 


051127 


050125 


047117 


040504 
047117 


020124 
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020107 


040524 
051124 
020122 
044522 
040524 


052123 
044501 


054105 


052122 


046040 
040506 
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“ERROR AND MESSAGE TABLE CONDIMENTS 


. 
peteereerteeeeerertereteeretererenetertreneereeeeeneeteeKeereeereeeNee eee 


EM1: 


EM2: 


EMO: 


EM11: 


EM14: 


EM15: 


EM16: 


EM17: 


EM20: 


EM21: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


eASCIZ 


-ASC1Z 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


/WRONG DATA IN READING OR WRITING HARDWARE REGISTER/ 


7ERROR ON DATA COMMAND/ 


7ERROR ON WRITE HEADER AND DATA/ 


/CONTROLLER OR DRIVE STATUS/ 


/REGISTER FAILED/ 


/NON EXISTENT REGISTER, PROGRAM ABORTED./ 


/WALT LOOP FAILED/ 


/WRITE CHECK FAILING/ 


/REGISTER FAIL ING/ 


7ZINTERRUPT FAILING/ 


SEQ 0029 


on 
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1475 002534 046111 047111 00 
0511 EM22: .ASCI1 /ERROR ON DRIVE PRESENT/<15><12> 


7 
2 
2 
; -ASCII1 /THE UNIT NO'S FOUND SY SETTING RHAS/<15><12> 
5 
0 
6 
3 


1485 002630 051040 040510 0065 
1487 002637 104 020117 047516 -ASCII1 /DO NOT AGREE WITH THE UNIT NO. FOUND FROM/<15><12> 


1493 002702 020104 051106 046517 
1495 002712 044122 051503 026462 eASCI] /RHCS2-"NED' BIT #12/<15><12> 
1496 002720 047047 042105 020047 
1497 002726 044502 020124 030443 


1 
1499 002737 061 033467 033467 -ASCII1 /177777-MEANS NO UNIT FOUND/<15><12> 


012 
1504 002773 116 052117 Be ashe . .ASCI1 /NOTE: ON DUAL PORT SYSTEM, DRIVE ON OTHER PORT WILL NOT GIVE/<15><12> 


attr .ASCIZ) /"NED', HENCE THERE WILL BE AN EXTRA DRIVE/ 


Cy wee et es es  E 


EM24: eASCIZ /LOOK AHEAD REGISTER AT THE BEGINNING OF SECTOR IS IN ERROR/ 


a ee a er er | 
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046116 
042527 
041040 
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620116 


047522 
Beate 


044440 
042507 
042524 
044440 
042522 


020131 


046517 
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~ASCIZ 


-ASCI1 


-ASCIZ 


-ASCI1 


-ASCIZ 


-ASCI1 


-ASCII 


-ASCI1 





/LOOK AHEAD REGISTER IS IN ERROR/ 


/CURRENT CYLINDER DOES NOT MATCH DESIRED CYLINDER REGIHSTER/<15><12> 


& 


/AFTER A SEEK AND INIT/ 


/JECC GENERATED 1S iNCORRECT/<15><12> 


/EVERY WORD ON THIS SECTOR IS THAT GIVEN IN ‘‘DATA USED'’/ 


/ON READ COMMAND, AFTER DATA AND ECC HAVE BEEN READ,/<15><12> 


/ECC REGISTERS OR RHER1 ARE IN ERROR/<15><12> 


/ONLY LOWER 11 BITS OF PATTERN REG. CAN BE READ/<15><12> 


on 
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1587 003716 020123 043117 050040 


1591 003746 wh 040505 006504 
1593 003755 124 044510 020123 -ASCIZ /THIS SHOULD MATCH LOWER 11 BITS OF GOOD ECCI/ 


1599 004020 047507 042117 042440 
1601 004032 044510 044107 oe ieee EM33: -ASCIZ /HIGH COUNT BIT NOT SET AFTER 38859 CLOCKS/ 


3 
1608 004104 042532 047522 goeose EM34: -ASCIZ /ZERO DETECT BIT NOT HIGH WHEN 32 BIT ECC REG. HAS 21 ZEROS/ 


1613 004142 031063 041040 052111 
1614 004150 042440 041503 051040 
1615 004156 043505 020056 040510 
1616 004164 020123 030462 055040 
1617 004172 051105 051517 000 
1618 004177 120 051517 052111 &EM35: -ASCI1 /POSITION REGISTER OR 11 BITS OF PATTERN REGISTER INCORRECT/<15><12> 
1619 004204 047511 020116 042522 
1620 004212 044507 052123 051105 
1621 004220 047440 020122 030461 
1622 004226 041040 052111 020123 
1623 004234 043117 050040 052101 
1624 004242 042524 047122 051040 
1625 004250 043505 051511 042524 
1626 004256 020122 047111 047503 


1627 004264 orlles 041505 006524 
1629 004273 114 053517 051105 -ASCI1 /LOWER 11 BITS OF PATTERN REGISTER SHOULD MATCH LOWER/<15><12> 


1634 004330 052123 051105 051440 
1635 004336 047510 046125 020104 

1636 004344 040515 041524 020110 

1637 004352 047514 042527 006522 

1638 004360 012 

1639 004361 ‘061 020061 044502 ASCII] /11 BITS OF GOOD ECK1/<15><12> 
1640 004366 051524 047440 020106 

1661 006374 047507 042117 042440 

1662 004402 041503 006461 012 
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051440 
051517 


042524 
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052101 


EM36: 


—EM37: 


—EM4O: 


-ASCIZ 


-ASCI1 


-ASCIZ 


-ASCIZ 


-ASCI1 


-ASCIZ 
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/DAT ENVLOP GOOD POSITION AND N-CODE ZEROS ARE IN OCTAL/ 


SEQ 0033 


/ON READ COMMAND WITH NON-CORRECTABLE ERROR DCK AND ECH SHOULD BE SET/<!1 


/1F POSITION REGISTER =10040 OR 10041 IT IS GOOD/ 


/WRITING WITH BUS ADDRESS HIGHER THAN 28K CAUSED ERROR/ 


/THERE WAS A READ-WRITE HEADER & DATA ERROR DURING 'DTE'/<15><12> 


/TEST SETUP = THE TEST WAS ABORTED AT THAT POINT/ 


on 


CZRJHDO,RPO4/5/6 DSKLS CTRLR2 
CZRJHD.P11 28-MAR-79 09:16 


1699 005114 050040 044517 052116 
1700 005122 000 


. 2 
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SEQ 0034 


on 
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1701 00512 CPHALT: .ASCI1 /FATAL ERROR = SEE DOCUMENT FOR BEST COURSE OF ACTION/<15><12> 


—— ON = ENO 


fay eASCIL / £€15><12><207><377><377><207><377><377><207><377><377> 


050040 -ASCI1 /THE PROGRAM HAS HALTED DURING A TEST BECAUSE CONTROLLER/<15><12> 


~S— 


005304 052116 047522 046114 
005316 051117 042040 053105 -ASCI1 /OR DEVICE HAS LOST ‘READY’, BECOME UNAVAILABLE ,/<15><12> 


005370 041101 042514 006454 


005377 107 047117 020105 -ASCI1Z /GONE OFFLINE, OR CANNOT CLEAR STATUS BITS/ 

005404 043117 046106 047111 

005412 026105 047440 020122 

005420 040503 047116 0 

005426 041440 042514 0 

005434 051440 040524 0 
044502 0 
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005450 
005451 120 020103 020040 DH1: -ASCI1 /PC TEST REG. GO00D ACTUAL /<15><12> 
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005522 020040 020040 020040 eASCIZ / NO ADDR. DATA DATA/ 


ee eg a es a a ig et a ee a ed ig ed et ag et et ed 


1 

5 

: 005560 oat 2 040504 040524 

6 005567 120 020103 020040 Dne: eASCII /PC TEST WORD GOOD BAD/<15><12> 


on 
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1757 005574 020040 052040 051505 


1761 005624 020040 041040 042101 
1763 005634 020040 020040 020040 eASCIZ / NO NO DATA ~—— DATA/ 


1768 005672 ey” 040504 040524 
1770 005701 120 020103 os isoe DH11: ASCII /PC TEST FAILING CONT. CONT. CONT. CONT./<15><12> 


1777, 005752 047117 027124 020040 
1778 005760 041440 047117 027124 


1780 005770 020040 020040 020040 eASCIZ / NO REG ADR RHCS1 RHCS2 RHDS1 = RHERI/ 
1781 005776 020040 047516 020040 


1789 006056 041520 020040 arenes DH14: eASCII = /PC TEST FAILING CONT. CONT. CONT. CONT. CONT. /<15><12 


1798 006144 020040 047503 v52116 
1800 006156 020040 020040 020040 eASCIZ / NO REG ADR BAD REG RHCS1 RHCS2 8HDS1 = RHERI / 


1809 006244 020040 044122 051105 


000 
1 006255 120 020103 020040 DHI5: .ASCIZ /PC TEST REG ADR/ 
2 006262 020040 052040 051505 


On 


CZRJHDO ,RPO4/5/6 DSKLS CTRLR2 


CZRJHD.P11 


— 
fo] 
— 
Ww 


eee ee se et et ad 
C2 Co CD C9 09 Cp CD CD OD 

ROR a et 2 oe 
mC OONOus 


1841 


eee ar er rr SP 
PRRBRAAR EERE EEE 
QOUWVkwn 0 OOnOvr wr 


—. ss os es 
ot tetete 
-OoO0eo~ 


SSSETER 


006760 


28-MAR-79 09:16 


020124 
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051501 


020040 
040440 
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047105 
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051040 
051104 


020040 
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051040 
020040 


051524 
020040 
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027124 
020040 


020040 


DH16: 


DH17: 


DH20: 


-ASCII 


-ASCIZ 


-ASCII 


eASCIZ 


-ASCII 


-ASC1Z 


/PC 


/PC 


/PC 
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TEST 


NO 


TEST 


NO 


TEST 


NO 


38 


WAT 


PC 


CONT. 


RHBA 


CONT 


RHER1 


BIT 


WANTED 


CONT. 


RHDB 


CONT 


RHER2 


SEQ 0037 


REG REG/<15><12> 


ADDRESS CONTENTS/ 


CONT. CONT. CONT./<15><12> 


RHWC RHCS1 RHCS2/ 


CONT/<15><12> 


CONT CONT 


RHER3S RHAS RHDS1/ 


on 
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1869 006766 044122 051504 


1875 007032 020040 047505 
1877 007042 020040 020040 


1882 007100 020040 044122 
1884 007110 041520 020040 
1885 007116 020049 042524 
1886 007124 0270540 020040 
020040 
1888 007140 eae 051503 


1890 007147 040 020040 


1902 
1903 007264 042523 052103 
1905 007274 020040 020040 
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007456 006456 012 
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000061 


Beotse DH21: .ASCII /PC TEST CONT 


052116 


020040 -ASCIZ / NO RHCS1 


051504 


020040 DH22: 
052123 
044122 
020040 
006462 


020040 


eASCI1 = /PC TEST RHAS 


-ASCIZ / NO UNIT 


4 ; 
aestst DH24: ASCII /PC TEST RHDST 


051117 


020040 eASCIZ / NO CONT. 


3 
arerst DH26: eASCII /PC TEST PC OF 


052116 





SEQ 0038 


CONT CONT/<15><12> 


RHAS RHDS1/ 


RHCS2/<15><12> 
UNIT/ 
BAD GOOD SECTOR SECTOR/<15><12> 


RHLA RHLA NO CLOCK/ 


FAILING CONT. CONT. CONT. CONT./<15><12> 


on 
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1925 + thea 040 020040 020040 eASCIZ / NO JSR REG ADD RHCS1 RHCS2 RHDSI RHERIT / 


34 007546 020040 051040 042510 
1936 007560 041520 020040 aeoree DH27: .ASCII /PC TEST PC OF FAILING GOOD ACTUAL /<15><12> 


1943 007632 daa 046101 006411 
1945 007641 040 020040 020040 -ASCIZ = / NO JSR REG. DATA DATA/ 


1951 007704 020101 020040 042040 
1953 007716 041520 020040 SeStst DH30: .ASCII /PC TEST PC OF REG. GOOD BAD/<15><12> 


1959 007762 020040 saat + 040502 


1961 007773 040 020040 020040 ~ASCIZ / NO JSR ADDR DATA DATA/ 
1962 010000 020040 047040 020117 


1967 010036 020101 020040 042040 
1969 010050 041520 020040 ses py DH31: .ASCII /PC TEST WORD GOOD BAD CONT. CONT. CONT./<15><12> 


1971 0064 620040 020040 047527 
1972 072 042122 020040 020040 
1975 00 047507 042117 020040 
1974 020040 040502 020104 s, 


020040 mre 052116 
020040 020040 eASCIZ / NO NO DATA DATA RHCS1 RHDS1 RHERI / 
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012 
563 040 020040 020040 -ASCIZ / NO JSR NO DATA RHCS1 RHDS1 RHERI / 
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0650 020040 051040 042510 
0656 030522 000011 


1981 010154 020040 047040 020117 
1982 910162 020040 020040 047040 
1983 010170 020117 020040 020040 
1984 010176 042040 052101 020101 
1985 010204 020040 042040 052101 
1986 010212 020101 020040 051040 
1987 010220 041510 030523 020040 
1988 010226 051040 042110 030523 
1989 010234 020040 051040 042510 
1990 010242 030522 000011 
1991 010246 041520 020040 020040 DH32: ASCII’ /PC TEST PC OF WORD GOOD BAD CONT. CONT. CONT./ 
1992 010254 020040 042524 052123 
1993 010262 020040 020040 041520 
1994 010270 047440 020106 020040 
1995 010276 047527 042122 020040 
1996 010304 020040 047507 042117 
1997 010312 020040 020040 040502 
1998 010320 020104 020040 020040 
1999 010326 047503 052116 020056 
2000 010334 020040 047503 052116 
2001 010342 004456 020040 047503 
2002 010350 052116 006456 012 
2003 010355 040 020040 020040 ~ASCIZ / NO JSR NO DATA DATA RHCS1 RHDS1 RHERI/ 
2004 010362 020040 047040 020117 
2005 010370 020040 020040 045040 
2006 010376 051123 020040 020040 
2007 010404 047040 020117 020040 
2008 010412 020040 042040 052101 
2009 010420 020101 020040 042040 | 
2010 010426 052101 020101 020040 
2011 010434 051040 041510 030523 
2012 010442 020040 051040 042110 
2013 010450 030523 020040 051040 
2014 010456 042510 030522 000 
2015 010463 120 020103 020040 DH33: eASCII] = /PC TEST PC OF WORD GOOD CONT. CONT. CONT. /<15><12 
2016 010470 020040 052040 051505 
2017 010476 020124 020040 050040 
2018 010504 020103 043117 020040 
2019 Hs 053440 051117 020104 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 


——— = - 
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og 041520 020040 DH34: -ASCI1 /PC TEST GOOD G00D WRITTEN WRITTEN DATA/<15><12> 


750 020040 020040 020040 ~ASCIZ / NO ECC1 ECC2 ECCI ECC2 USED/ 


000 
035 120 020103 ae eae DH35: eASCII = /PC TEST GOOD GOOD PATTERN POSITON GOOD RHER1 /<15><12 


01 

01 

010 

010 

010 

010 

010 

010 

010 

010 

010 

010 

010 

011 

011 

011 

011 

011 

011 

011 

011 

011 
2059 011064 043440 047517 020104 
2060 011072 020040 050040 052101 
2061 011100 042524 047122 050040 
2062 011106 051517 052111 047117 
2063 011114 043440 047517 020104 
2064 011122 020040 051040 042510 
2065 011130 030522 006411 012 
2066 0111355 040 020040 020040 eASCIZ = / NO ECC1 ECC2 REG. REG. POSITON REG./ 
2067 011142 020040 047040 020117 
2068 011150 020040 020040 042440 
2069 011156 041503 020061 020040 
2070 011164 042440 041503 020062 
2071 011172 020040 051040 043505 
2072 011200 020056 020040 051040 
2073 011206 043505 020056 020040 
2074 011214 050040 051517 052111 
2075 011222 047117 051040 043505 
2076 011230 000056 
2077 011232 041520 020040 020040 DH36: -ASCI] /PC TEST PC OF RHMR POSITON PATTERN/<15><12> 
2078 011240 020040 042524 052123 
2079 011246 020040 020040 041520 
2080 011254 047440 020106 020040 
2081 011262 044122 051115 020040 
2082 011270 020040 047520 044523 
2083 011276 047524 020116 040520 
2084 011304 052124 051105 006516 
2085 011312 012 
2086 011313 040 020040 020040 eASCIZ / NO JSR CONT. REG. REG./ 
2087 011320 020040 047040 020117 
2088 011326 020040 020040 045040 
2089 011334 051123 020040 020040 
2090 011342 041440 047117 027124 
2091 011350 020040 051040 043505 
2092 011356 020056 020040 051040 


aon 
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CZRJHD.P11 28-MAR-79 09:16 ERROR POINTER TABLE SEQ 0042 
2093 011364 043505 000056 
2094 011370 041520 0200460 020040 DH37: .ASCII /PC TEST POSITON POSITON GOOD G00D PATTERN DATA N-CODE/ 
2095 011376 020040 042524 052123 
2096 011404 020040 020040 047520 
2097 011412 044523 047524 020116 
2098 011420 047520 044523 047524 
2099 011426 020116 047507 042117 
2100 011434 020040 020040 047507 
2101 011442 042117 020040 020040 
2102 011450 040520 052124 051105 
2103 011456 020116 040504 040524 
2104 011464 020040 020040 026516 
2105 011472 047503 042504 005015 
2106 011500 020040 020040 020040 eASCIZ / NO ECC GOOD ECC! ECC2 ECC ENVLOPE ZEROS 
2107 011506 020040 047516 020040 
2108 011514 020040 020040 041505 
2109 011522 020103 020040 020040 
2110 011530 047507 042117 020040 
2111 011536 020040 041505 030503 
2112 011544 020040 020040 041505 
2113 011552 031103 020040 020040 
2114 011560 041505 020103 020040 
2115 011566 020040 047105 046126 
2116 011574 050117 020105 042532 
sie 011602 047522 004523 000 
2119 011607 120 020103 020040 DH40: -ASCII = /PC TEST FAILING CONT. CONT. CONT. CONT./<15><12> 
2120 011614 020040 052040 051505 
2121 011622 020124 020040 043040 
2122 011630 044501 044514 043516 
2123 011636 041440 047117 027124 
2124 011644 020040 041440 047117 
2125 011652 027124 020040 041440 
2126 011660 047117 027124 020040 
2127 011666 041440 047117 027124 
2128 011674 005015 
2129 011676 020040 020040 020040 -ASCIZ = / NO REG ADR RHCS1 RHCS2 = RHDS1 RHER1/ 
2130 011704 020040 047516 020040 
2131 011712 020040 020040 042522 
2132 011720 020107 042101 020122 
2133 011726 044122 051503 020061 
2134 011734 020040 044122 051505 
2135 011742 020062 020040 044122 
2136 011750 051504 020061 020040 
ee 011756 044122 051105 000061 
tbe ~EVEN 
VG 
2141 011764 001116 017330 045662 DTI: -WORD $ERRPC,TSTINM,REGADR,SGDDAT,$BDDAT,0 
2142 011772 001124 001126 000000 
2143 012000 001116 017330 053130 DTe: WORD $ERRPC,TSTNM,ERWORD,SGDDAT,0 
2144 012006 001124 000000 
2145 012012 001116 017330 053130 D153: WORD SERRPC,TSTNM,ERWORD,$GDDAT,SBDDAT ,0 
the 012020 001124 001126 000000 
4 
2148 


012026 001116 017330 001122 D111: WORD $ERRPC,TSTNM,$BDADR,(CS1,CS2,DS1,ER1,0 
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12034 015032 015030 015054 

12042 015034 000000 

12046 001116 017330 001122 DT14: .WORD SERRPC,TSTINM,SBDADR,$BDDAT,CS1,CS2,DS1,ER1,0 
12054 001126 015032 015030 

12062 015054 015034 000000 

12070 001116 017330 001200 D115: .WORD SERRPC,TSTNM,STMP1,0 

12076 000000 

1 001116 017330 001204 D116: .WORD SERRPC,TSTNM,STMP3,STMP1,S$TMPO,$BDDAT,0 
1 001200 001176 001126 

1 000000 

1 001116 017330 015026 DT17: .WORD SERRPC,TSTNM,BA,DB,WC,CS1,CS2,0 

1 015022 015024 015032 

1 015030 000000 


001116 017330 015034 DT20: .WORD SERRPC,TSTNM,ER1,ER2,ER3,AS,DS1,0 
015040 015046 015050 


001116 017330 015032 DT21: .WORD $SERRPC,TSTNM,CS1,AS,0S1,0 
015050 015054 000000 
001116 017330 001124 DT22: .WORD SERRPC,TSTNM,$GDDAT,$BDDAT ,0 


001116 017330 015036 DT24: .WORD SERRPC,TSTNM,DST,SBDDAT,STMP1,STMP2,S$TMP3,0 
001126 001200 001202 


001116 017330 015132 D126: -WORD SERRPC,TSTNM,PCJSR,SBDADR,CS1,CS2,DS1,ER1,0 


WNN—CDONGUUFW Whoo 
NFONMFONFOMWESA NPNLOLAO 
oOo 
— 

w 
So 
w 
P 
oO 
So 
So 
oO 
oS 
So 


246 001116 017330 015132 DT2?: «WORD SERRPC,TSTNM,PCJSR,REGADR,SGDDAT ,SBDDAT ,0 
254 045662 001124 001126 


264 001116 017330 015132 0130: «WORD SERRPC,TSTNM,PCJSR,REGADR,SGDDAT ,SBDDAT ,0 


SDOVTWDOGOOOCSOOOOCOCOOOCOCOOCOO COCO OCOCOOCOCOOCOOCOCOOOCOOOCOO COCO OCOCOCOCOOCOSO 


2272 045662 001124 001126 
2300 000000 
12302 001116 017330 053130 D131: -WORD SERRPC,TSTNM,ERWORD,SGDDAT,$BDDAT,CS1,DS1,ER1,0 
12310 001124 001126 015032 
12316 015054 015034 000000 
12324 001116 017330 015132 D132: -WORD S$ERRPC,TSTNM,PCUSR,ERWORD,SGDDA™ ,SBDDAT,CS1,DS1,ER1,0 
12332 053130 001124 001126 
12340 015032 015054 015034 
12346 000000 | 
12350 001116 017330 015132 0133: -WORD $ERRPC,TSTNM,PCJSR,ERWORD,$GDDA",CS1,0S1,ER1,0 
1 012356 053130 001124 015032 
2 012364 015054 015034 000000 
3 012372 001116 017330 050620 D134: -WORD $ERRPC,TSTNM,GECC1,GECC2,WECC1 WECC2,DISK,0 
& 012400 050622 055726 055730 
5 012406 054726 000000 
96 012412 001116 017330 050620 D135: -WORD SERRPC,TSTNM,GECC1,GECC2,EC2,EC1,POSITI.ER1.0 
2197 012420 050622 015064 015062 
2198 012426 050632 015034 000000 
2199 012434 001116 017330 015132 D136: -WORD SERRPC,TSTNM,PCJSR,MR,EC1,EC2,0 
2200 012442 015052 015062 015064 
2201 012450 000000 
2202 124652 001116 017330 015062 0137: -WORD $ERRPC,TSTNM,EC1,POSITI,GECC1,GECC2,EC2,DATENV,2CODE .0 
2208 012460 050632 050620 050622 
2204 012466 015064 050636 050640 


oa 


CZRJHDO,RPO4/5/6 DSKLS Cmte 


CZRJHD.P11 
2205 012474 
2206 012476 

207 012504 
2208 012512 
2209 
2210 
2211 
2212 
2213 012516 
2214 012521 
2215 012523 
2216 012526 
2217 012527 
2218 012532 
2219 
2220 012534 
2221 012537 
2222 012542 
2223 012543 
2224 012546 
2225 012551 
2226 012553 
2227 012556 
2228 012561 
2229 012563 
2230 012566 
2231 012571 
2232 012572 
2233 012575 
2234 012600 
2235 
2236 012601 
2237 012604 
2238 012606 
2239 012611 

2240 012612 
2241 012615 
2242 012620 
22435 012621 
2244 012624 
2245 012627 
2246 012631 
2247 012634 
2248 012637 
2249 012642 
2250 
2251 012645 
2252 012650 
2253 012655 
2254 012655 
2255 012600 
2256 012663 
2257 012666 
2258 012671 
2259 Risers 


28-MAR-79 09:1 

00000 

001116 017330 

015032 015030 

015034 000000 
000 006 
000 000 
000 000 
000 
000 000 
000 000 
000 000 
000 000 
000 
000 000 
000 000 
000 000 
000 000 
000 000 
000 000 
000 000 
000 000 
000 
000 000 
000 000 
000 
000 000 
000 000 
000 000 
000 
000 000 
000 000 
000 
000 000 
000 000 
000 000 
000 000 
000 000 
000 000 
000 000 
000 000 
000 000 
000 000 
000 000 
001 000 
000 000 
000 000 
001 000 
000 000 
000 000 


MACY11 30A(1052) 


D140: 


DF: 
DF: 
DF3: 


DFI1: 
DF14: 
DFIS: 
DF16: 
DF17: 
DF 20: 
DF21: 


DF 22: 
DF 24: 


DF 26: 


DF 27: 
DF 30: 


DF31: 
DF 32: 
DF 33: 


DF 34: 


F 4 
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«WORD 


-BYTE 


-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 


.BYTE 
.BYTE 


-BYTE 


-BYTE 
-BYTE 


-BYTE 
-BYTE 
-BYTE 


-BYTE 


SERRPC, TSTNM,SBDADR,CS1,CS2,DS1,ER1,0 


0,0,0,0,0 
0,0,1,0 
0,0,1,0,0 


0,0,0,0,0,0,0 
0,0,0,0,0,0,0,0 
0,0,0 

0,0,0,0,0 
0,0,0,0,0,0,0 
0,0,0,0,0,0,0 
0,0,0,0,0 


0,0,0,0 
0,0,0,0,0,0,0 


0,0,0,0,0,0,0,0 


0,0,0,0,0,0 
0,0,0,0,0,0 


0,0,1,0,0,0,0,0 
0,0,0,1,0,0.0,0,0 
0,0,0,1 0,0,0.0 


0,0,0,0,0,0,0 


SEQ 0044 


On 
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CZRJHD.P11 28-MAR-79 09: ERROR POINTER TABLE SEQ 0045 
2261 012701 000 000 000 
2262 012704 000 
22635 012705 000 000 000 DF35: .BYTE 0,0,0,0,0,0,0,0 
2264 012710 000 000 000 
2265 012713 000 000 
2266 012715 000 000 000 OF36: .BYTE 0,0,0,0,0,0 
2267 012720 000 000 000 
2268 012723 000 000 000 OF37: .BYTE 0,0,0,0,0,0,0,0,0 
2269 012726 000 000 000 
2270 012731 000 000 000 
2271 012734 000 000 000 OF40: .BYTE 0,0,0,0,0,0,0 
2272 012737 000 000 000 
2273 012742 000 
2274 
2275 012744 -EVEN 
2276 012746 0446122 030461 051040 EM42: -ASCIZ /RH11 REGISTER FAILED TO RESPOND TO A ‘‘TST’’ COMMAND/ 
2277 «012752 043505 051511 042524 
2278 012760 020122 040506 046111 
2279 012766 042105 052040 020117 
2280 012774 042522 050123 047117 
2281 013002 020104 047524 040440 
2282 013010 021040 051524 021124 
2283 013016 041440 046517 040515 
2284 013024 042116 000 


~~ 
a) 
oo 
~ 
COSCOSo SOOCOCOODO COCO OCOCOCO 


020124 
013236 042524 052123 000 
013243 116 047117 042440 €M50: .ASCIZ /NON EXISTANT DRIVE (NED) TEST/ 


2286 013027 122 030510 020061 €M43: -ASCIZ /RH11 ILLEGAL REGISTER RESPONSE TEST/ 
13034 046111 042514 040507 
2288 013042 020114 042522 044507 
2289 013050 052123 051105 051040 
2290 013056 051505 047520 051516 
2291 013064 020105 042524 052123 
3343 13072 000 
2294 013073 115 053117 020105 €M44: .ASCIZ /MOVE BYTE TO WORD COUNT TEST/ 
2295 013100 054502 042524 052040 
2296 013106 020117 047527 042122 
2297 013114 041440 052517 052116 
5344 13122 052040 051505 000124 
2300 013130 044502 020123 054502 EM45: .ASCIZ /BIS BYTE TO WORD COUNT/ 
2301 013136 042524 052040 020117 
2302 013144 047527 042122 041440 
tt 013152 052517 052116 000 
4 
2305 013157 102 041511 041040 EM46: .ASCIZ /BIC BYTE TO WORD COUNT/ 
2306 013164 052131 020105 047524 
2307 013172 053440 051117 020104 
$a00 013200 047503 047125 000124 
2310 013206 042522 044507 052123 EM47: .ASCIZ /REGISTER ADDRESS SELECT TEST/ 
2311 013214 051105 040440 042104 
2312 013222 042522 051523 051440 
2313 013230 046105 041505 
2314 
2315 
2316 


an 
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2317 013250 044530 052123 047101 

2318 013256 020126 051104 053111 

2319 013264 020105 047050 042105 

2320 013272 020051 042524 052123 

$3s) 013300 00 

2323 013301 101 020123 042522 EMS1: -ASCIZ /AS REGISTER TEST/ 

2324 013306 044507 052123 051105 

tit 013314 052040 051505 000124 

2327 013322 052502 051523 040440 EMS2: -ASCIZ /BUSS ADDRESS REGISTER DATA TEST/ 
2328 013330 042104 042522 051523 

2329 013336 0510460 043505 051511 

2330 013344 042524 020122 040504 

2331 013352 040524 052040 051505 

seet 013360 000124 

2334 013362 052502 051523 040440 EMSS: -ASCIZ /BUSS ADDRESS REGISTER MOVE BYTE/ 
2335 013370 042104 042522 051523 

2336 «4013376 051040 043505 051511 

2337 013404 042524 020122 047515 

2338 013412 042526 041040 052131 

sicp 013420 000105 ; 
2341 013422 044122 030461 044440 EM54: -ASCIZ /RH11 INTERRUPT FAILED TO OCCUR/ 
2342 013430 052116 051105 052522 

2343 013436 052120 043040 044501 

2344 013444 042514 020104 047524 

2345 013452 047440 041503 051125 

cece 013460 000 

2348 013461 122 051505 052105 €&M55: -ASCIZ /RESET TEST/ 

Seep 013466 052040 051505 000124 

2351 013474 054115 020106 044502 EMS6: eASCIZ = /MXF BIT TEST/ 

2352 013502 020124 042524 052123 

Stee 013510 000 

2355 013511 125 044516 052502 €EMS57: -ASCIZ /UNIBUS PARITY BIT TEST/ 

2356 013516 020123 040520 044522 

2357 013524 054524 041040 052111 

Siee 013532 052040 051505 000124 

2360 013540 047504 051505 051440 €EM60: .ASCIZ /DOES SELECTING THE RH11 CLEAR THE UNIT SELECT REGISTER/ 
2361 013546 046105 041505 044524 

2362 013554 043516 052040 042510 

2363 013562 051040 030510 020061 

2364 013570 046103 040505 020122 

2365 013576 044124 020105 047125 

2366 013604 052111 051440 046105 

2367 013612 041505 020124 042522 

2368 013620 044507 052123 051105 

34 013626 000 

2371 013627 104 042517 020123 EM61: ~ASCIZ) /DOES TRE GET SET BY UNIBUS PARITY ERROR/ 
2372 013634 051124 020105 042507 


aon 


CZRJHDO,RPOS/5/6 DSKLS CTRLR2 
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CZRJHD.P11 


14004 


014012 


014040 


014062 
014066 


014146 
014150 


020124 


042522 
047516 


042522 
047520 


040505 
047503 


000122 
042522 


020104 


020124 
000051 


020116 


000051 


052122 
041505 


051511 


042525 


051040 
042524 


042524 


047524 
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020124 


052050 


054105 


052050 


051440 


046103 


047522 


047440 


EM62: 


EM63: 


EM64: 


EM65: 


EM66: 


EM67: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


eASCIZ 


~ASCIZ 


-ASCIZ 


/NON EXISTANT DRIVE (NED) FAILED TO SET (TRE)/ 


/NON EXISTANT MEMORY (NEM) FAILED TO SET (TRE)/ 


/PORT SELECT FAILED TO CLEAR/ 


/CONTROLLER CLEAR FAILED TO CLEAR COMMAND REGISIER/ 


/RESELECT FAILED TO CLEAR COMMAND REGISTER/ 


/INTERRUPT CAUSED BY 


RDY!JE BITS SET FAILED TO OCCUR/ 


SEQ 0047 


on 
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2429 014502 041503 051125 000 


2431 014307 1 020105 040506 EM70: .ASCIZ /IE FAILED TO CLEAR FOLLOWING AN INTERRUPT/ 
1 042105 052040 
7 046103 040505 
2 047506 046114 
7 047111 020107 
1 044440 052116 
5 052522 052120 
2438 014360 


2440 014361 101 020123 042522 EM71: .ASCIZ /AS REGISTER WRITE TEST/ 

2441 014366 044507 052123 051105 

2442 014374 053440 044522 042524 

2443 014402 052040 051505 000124 Y 

2444 | 

2445 

2446 

2447 014410 041520 020040 020040 DH42: .ASCII /PC TEST ILLEGAL/<15><12> 


2448 014416 020040 042524 052123 
2449 014424 020040 020040 046111 
2450 014432 vt 040507 006514 


2452 014441 040 020040 020040 -ASCIZ / NO ADDRESS/ 
2453 014446 020040 047040 020117 
2454 014454 020040 020040 040440 
2455 014462 aad 042522 051523 


2457 014471 120 020103 020040 DH44: -ASCII = /PC TEST REGISTR CONT CONT/<15><12> 


2462 014526 020040 041440 047117 
2464 014537 040 020040 020040 LASCIZ / NO — ADDRESS GOOD _—BAD/ 


2469 014574 wer 041040 042101 


2471 014603 120 020103 020040 DH54: «ASCII /PC TEST REGISTR CONT/<i5><12> 
2472 014610 020040 052040 051505 
2473 014616 020124 020040 051040 
2474 014624 043505 051511 051124 
2475 014632 sehr ot 047117 006524 


2477 014641 040 020040 020040 eASCIZ = / NO ADDRESS/ 
2478 014646 020040 047040 020117 

2479 014654 020040 020040 040440 

2480 014662 042104 042522 051523 

2481 014670 000 


2483 014672 -EVEN 
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014672 
014700 
014702 
014710 
014716 
014724 


001116 


001124 


017330 
017330 
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045662 
045662 


000000 


045662 


D142: 
D144: 
D154: 


«WORD 
- WORD 
«WORD 


SERRPC,TSTNM,REGADR ,O 
SERRPC, TSTNM,REGADR,SGDDAT , SBDDAT 0 
SERRPC,TSTNM,REGADR,SGDDAT ,0 


SEQ 0049 


on 
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2491 014730 000 000 000 DF42: .BYTE 0,0,0 
2492 014733 000 000 000 DF44: .BYTE 0,0,0,0,0 
2493 014736 000 000 

2494 014740 000 000 000 DFS4: .BYTE 0,0,0,0 
2495 014743 000 


ee — 
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000001 


100000 
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HARDWARE REGISTER BIT DEFINITIONS 
-SBTTL HARDWARE REGISTER BIT DEF 


pp eeeeerererereerreeeteeeeteeeee ee 


;RH11 REGISTERS 


sp ereeeererererererereerereereeese 


;WORD COUNT REGISTER (RHWC) 
;EACH BIT 1S CALLED BY BIT NUMBER 


;BUS ADDRESS REGISTER (RHBA) 
;EACH BIT 1S CALLED BY BIT NUMBER 


;CONTROL AND STATUS REGISTER 2 (R 


US1= 1 
US2= 2 
US4= 4 
BAI= 10 
PAT= 20 
CLR= 40 
IR= 100 
OR= 200 
MPE= 400 
MXF= 1000 
PGE= 2000 
NEM= 4000 
NED= 10000 
UPE= 20000 
wCE= 40000 
DLT= 100000 


DATA BUFFER REGISTER (RHDB) 
EACH BIT IS CALLED BY BIT NUMBER 


2 
SEQ 0051 


INI TIONS 


eeterteerrerrrrerereteeneerereneeee 


ererterraerekaereekrereereererenerene 


HCS2) 


;UNIT SELECT (BIT #0) 

;UNIT SELECT (BIT #1) 

;UNIT SELECT (BIT #2) 

;BUS ADDRESS INCREMENT INHIBIT (BIT #3) 

: INVERT PARITY ON MASS BUS TO EVEN (BIT #4) 
:;CLEAR (BIT #5) 

; INPUT READY (BIT #6) 


OUTPUT READY (BIT #7) 

;MASS BUS PARITY ERROR (BIT #8) 
;MISSED TRANSFER ERROR (BIT #9) 
;PROGRAM ERROR (BIT #10) 

NON EXISTANT MEMORY (BIT #11) 
;NON EXISTANT DRIVE (BIT #12) 
;UNIBUS PARITY ERROR (BIT #13) 


SWRITE CHECK ERROR (BIT #14) 
;DATA LATE (BIT #15) 


on 
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000100 


100000 


000001 


100000 


000001 


100000 
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SEQ 0052 


pp etkerereeeeerererreeeeereeeeeeertretrerteKeeeeeAeeeeKeeAeAe eee 


;RPO4 REGISTERS 


speeeeeereeereereeeretetereererrereteerereeeKeKeeeeAReeeeeAe eee 


;CONTROL AND STATUS 1 REGISTER. 


GO= 1 

1E= 100 
RBY= 200 
Al6= 400 
Al7= 1000 
PSEL= 2000 
DVA= 4000 
MCPE= 20000 
TRE= 40000 
SC= 100000 
STATUS REGISTER (RHDS1) (#01) 
DFS= 1 
DFF20= 2 
DIGB= 4 

GRV= 10 
DL64= 20 
DEI= 40 

VV= 100 
DRY= 200 
DPR= 400 
PROG= 1000 
LST= 2000 
WRL= 4000 
MOL= 10000 
PIP= 20000 
ERR= 40000 
ATA= 100000 
.. — #01 (RHER1) (#02) 
ILR= 2 

RMR= 4 

PAR= 10 
FER= 20 
WCF= 40 
ECH= 100 
HCE= 200 
HCRC= 400 
AOE= 1000 
1AE= 2000 
WLE= 4000 
DTE= 10000 
OP l= 20000 
UNS= 40000 
DCK= 100000 


DRIVE FORWARD 5°'/SEC. 
DRIVE FORWARD 20°'/SEC. 
DRIVE TO INNER GAVRD BAND (BIT #2) 
3GO REVERSE (BIT #3) 

s;DIFFERENCE LESS THAN 64 (BIT #4) 
sDIFFERENCE EQUALS 1 (BIT #5) 
;VOLUME VALID (BIT #6) 

;DRIVE READY (BIT #7) 


(#00) 


:G0 (BIT #0) 

INTERRUPT ENABLE (BIT #6) 

:READY (BIT #7) 

;HIGH ORDER UNIBUS BITS (BIT #8) 

HIGH ORDER UNIBUS BITS (BIT #9) 

;PORT SELECT «BIT #10) 

DEVICE AVAILABLE (BIT #11) 

:MASSBUSS PARITY ERROR il #13) 

; TRANSFER ERROR (BIT #14 

:SPECIAL CONDITION (BIT "5) 


(BIT #0) 
(BIT #1) 


;DRIVE PRESENT (BIT #8) 

;PROGRAMABLE (BIT #9) 

;LAST SECTOR TRANSFERRED (BIT #10) 

WRITE LOCK (BIT #11) 

;MEDIUM ON-LINE (BIT #12) 

;POSITIONING OPERATION _. PROGRESS (BIT #13) 
;COMPOSIT ERROR. (BIT #14 


ZATTENTION ACTIVE (BIT #13) 


ILLEGAL FUNCTION (BIT 7 

; ILLEGAL REGISTER (BIT 

:REGISTER MODIFICATION REFUSED (BIT #2) 
;PARITY ERROR (BIT #3) 

FORMAT ERROR (BIT #4) 


SWRITE CLOCK FAIL (BIT #5) 
ECC HARD ERROR (BIT #6) 
;HEADER COMPARE ERROR (BIT #7) 


;HEADER CRC ERROR (BIT #8) 
;ADDRESS OVERFLOW ERROR (BIT #9) 
; INVALID ADDRESS ERROR (BIT #10) 
[WRITE LOCK ERROR (BIT #11) 
;DRIVE TIMING ERROR (BIT #12) 
OPERATION INCOMPLETE (BIT #13) 
DRIVE UNSAFE (BIT #14) 

:DATA CHECK ERROR (BIT 15) 


On 
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CZRJHD.P11 28-MAR-79 09:1 HARDWARE REGISTER BIT DEFINITIONS SEQ 0053 Ci 
$23) ;MAINTAINABILITY REGISTER (RHMR) (#03) , 
2593 000001 DMD= 1 sDIAGINOSTIC MODE (BIT #0) 

2594 000002 MCLK= 2 sMAINTAINABILITY CLOCK (BIT #1) 
2595 000004 MINX= 4 ‘MAINTAINABILITY INDEX (BIT #2) 
2596 000010 MSTCK= 10 *MAINTAINABILITY SECTOR CLOCK (BIT #3) 
2597 000020 MRD= 20 :MAINTAINABILITY READ (BIT # 

2598 000040 MWR = 40 ‘MAINTAINABILITY WRITE (BIT 15) 
2599 000200 DENVL= 200 :DATA ENVELOPE (BIT #7) 

2600 000400 ZER= 400 : ZERO DETECT (BIT #8) 

red 001000 DTSY= 1000 sMAINTAINABILITY SYNC DETECTED (BIT #9) 
ges; ATTENTION SUMMARY PSEUDO-REGISTER (RHAS) (#04) 

2605 000001 ATO= 1 DEVICE 0 (BIT #0) 

2606 000002 ATl= 2 DEVICE 1 (BIT #1) 

2607 000004 Al2= 4 DEVICE 2 (BIT #2) 

2608 000010 - AT3= 10 DEVICE 3 (BIT #3) 

2609 000020 ° AT4= 20 DEVICE 4 (BIT #4) 

2610 000040 ATS= 40 DEVICE 5 (BIT #5) 

2611 000100 AT6= 100 DEVICE 6 (BIT #6) 

2612 000200 AT7= 200 DEVICE 7 (BIT #7) 

2613 

2614 

2615 

2616 

2617 

2618 DESIRED SECTOR/TRACK ADDRESS REGISTER (RHDST) (#1) 

2019 EACH BIT IS CALLED BY BIT NUMBER 

2620 

2621 

2622 

2623 

2624 

2625 DRIVE TYPE REGISTER (RHDT) (#06) 

2626 EACH BIT IS CALLED BY BIT NUMBER 

2627 

2628 

2629 

2630 

2631 

sos sLOOK-AHEAD REGISTER (RHLA) (#07) 

2634 000001 EXT1= 1 EXTENSION 1 (BIT #0) 

2635 000002 EXT2= 2 “EXTENSION 2 (BIT #1) 

2636 000004 EXT4= 4 sEXTEMSION 3 (BIT #2) 

2637 000010 EXT10= 10 sEXTENSION 4 (BIT #3) 

2638 000020 ExT20= 20 sEXTENSION 5 (BIT #4) 

2639 000040 EXT40= 40 EXTENSION 6 (BIT #5) 

2640 000100 $C1= 100 SECTOR COUNT FIELD 0 (BIT #6) 
2641 000200 $C2= 200 SECTOR COUNT FIELD 1 (BIT #7) 
2642 000400 $C4= 400 :SECTOR COUNT FIELD 2 (BIT #8) 
2643 001000 $¢10= 1000 SECTOR COUNT FIELD 3 (BIT #9) 
2644 002000 $c¢20= 2000 SECTOR COUNT FIELD 4 (BIT #10) 
2645 004000 TRK1= 4000 TRACK FIELD 1 (BIT #11) 

2646 010000 TRK2= 10000 TRACK FIELD 2 (BIT #12) 
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CZRJHD.P11 28-MAR-79 09: HARDWARE REGISTER BIT DEFINITIONS SEQ 0054 
2647 020000 TRK4= 20000 TRACK FIELD 3 (BIT #13) 
2648 040000 TRK10= 40000 s TRACK FIELD 4 (BIT #14) 
se? 100000 TRK20= 100000 TRACK FIELD 5 (BIT #15) 
se?) ERROR REGISTER #2 (RHER2) (#10) 
2653 000001 wus 1 sWRITE CURRENT UNSAFE (BIT #0) 
2654 000002 CSF= 2 CURRENT SINK FAILURE (BIT #1) 
2655 000004 wSU= 4 WRITE SELECT UNSAFE (BIT #2) 
2656 000010 CSu= 10 :CURRENT SWITCH UNSAFE (BIT 4% 
2657 000020 MSE= 20 MOTOR SEQUENCE ERROR (BIT #4 
2658 000040 TDF = 40 s TRANSITIONS DETECTOR FAILURE. (BIT #5) 
2659 000100 TUF = 100 s TRANSITIONS UNSAFE (BIT #6) 
2660 000200 FEN= 200 sFAILSAFE ENABLED (BIT #7) 
2661 000400 wRU= 400 ‘WRITE READY UNSAFE (BIT #8) 
2662 001000 MHS= 1000 s;MULTIPLE HEAD SELECT (BIT #9) 
2663 002000 NHS= 2000 :NO HEAD SELECTION (BIT #10) 
2664 004000 IXE= 4000 : INDEX ERROR (BIT #11) 
2665 010000 vu30= 10000 :30VOLT UNSAFE (BIT #12) 
2666 020000 PLU= 20000 :PLO UNSAFE (BIT #13) 
ger 100000 ACU= 100000 ;ACUNSAFE (BIT #15) 
og OFFSET REGISTER (RHOF) (#11) 
2671 000001 OF25= 1 OFFSET 25 MICRO INCHES (BIT #0) 
2672 000002 OFSO= 2 :OF FSET 50 MICRO INCHES (BIT #1) 
2673 000004 OF100= 4 :OFFSET 100 MICRO INCHES (BIT #2) 
2674 000010 OF200= 10 :OFFSET 200 MICRO INCHES (BIT #3) 
2675 000020 OF400= 20 sOFFSET 400 MICRO INCHES (BIT #4) 
gore 000040 OF800= 40 OFFSET 800 MICRO INCHES (BIT #5) 
2678 000200 OFREV= 200 ; OFFSET NEGATIVE (REVERSE) (BIT #7) 
2679 002000 HCI= 2000 HEADER COMPARE INHIBIT (BIT #10) 
2680 004000 ECI= 4000 “ERROR CORRECTION CODE INHIBIT (BIT #11) 
2681 010000 FMT22= 10000 sFORMAT BIT (BIT #12 
2682 
2683 
2684 
2685 
2686 
2687 DESIRED CYLINDER ADDRESS (RHCA) (#12) 
2688 :EACH BIT IS CALLED BY BIT NUMBER. 
2089 
2690 
2691 
2692 
2693 
2694 CURRENT CYLINDER ADDRESS (RHCC) (#13) 
2095 sEACH BIT 1S CALLED BY BIT NUMBER 
2696 
2697 
2698 
2699 
2700 
2701 :SERIAL NUMBER REGISTER (RHSN) (#14) 


2702 ;EACH IS CALLED BY BIT NUMBER 


dD 5 
CZRJHDO ,RPO4/5/6 DSKLS or MACY11 30A(1052) 24-MAY-79 15:07 PAGE 56 


CZRJHD.P11 28-MAR-79 09:1 HARDWARE REGISTER BIT DEFINITIONS SEQ 0055 
2703 
2704 
2705 
2706 
2707 
ha ERROR REGISTER #03 (RHER3) (#15) 
2710 000001 PSu= 1 ;PACK SPEED UNSAFE (BIT #0) 
2711 000002 VUF = 2 VELOCITY UNSAFE (BIT #1) 
2712 000010 UWR= 10 sANY UNSAFE EXCEPT READ/WRITE (BIT #3) 
2713 000020 PRE= 20 :DISK PACK ROTATION ERROR (BIT #4) 
2714 000040 ACL= 40 sAC LOW (BIT #5) 
2715 000100 DCL= 100 :0C LOW (BIT #6) 
2716 040000 SK I= 40000 SEEK INCOMPLETE (BIT #14) 
sah 100000 OCYL= 100000 sOFF CYLINDER (BIT #15) 
2719 :ECC POSITION REGISTER (RHEC1) (#16) 
oreo ;EACH BIT 1S CALLED BY BIT NUMBER 
2722 
2723 
2724 
2725 
2726 ECC PATTERN REGISTER (RHEC2) (#17) 
4034 EACH BIT 1S CALLED BY BIT NUMBER 


on 
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176722 
176702 
176704 


176736 


176752 
176750 
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HARDWARE REGISTER BIT DEFINITIONS 


-SBTTL REGISTER ADDRESSES 


;RP04/5/6 VECTOR ADDRESS 


RPVEC: 


RHDB: 
RHWC: 
RHBA: 
RHCS2: 
RHCS1: 
RHER1: 
RHDST: 
RHER2: 
RHOF : 
RHCA: 
RHER3: 
RHAS: 
RHR: 
RHDS1: 
RHDT: 
RHSN: 
RHEC1: 
RHEC2: 
RHLA: 
RHCC: 


254 


;RP04/5/6 VECTOR ADDRESS 


THE CONTENTS OF THESE LOCATIONS WILL BE DIFFRENT 
IF THE "‘CHANGE BASE ADDRESS’ ROUTINE IS USED. 
THIS ROUTINE STARTS AT LOCATION TAGGED ‘'BASECH"’ 


176722 


176720 
176736 


;DATA BUFFER 

;WORD COUNT 

;BUS ADDRESS 

;CONTROL AND STATUS 

;CONTROL AND STATUS 1 SEE NOTE ABOVE 
ERROR #1 SEE NOTE ABOVE 

;DESIRED SECTOR / TRACK ADDRESS 
;ERROR #2 


; OFFSET 

;DESIRED CYLINDER ADDRESS 
TERROR # a3 

ATTENTION SUMMARY SEE NOTE ABOVE 
:MAINTAINABILITY 

DRIVE STATUS 

:DRIVE TYPE 

;SERIAL NUMBER SEE NOTE ABOVE 
;ECC POSITION 

;ECC PATTERN 

;LOOK AHEAD 

;CURRENT CYLINDER ADDRESS 


ADDITIONAL REGISTERS LOCATED IN THE RH70 CONTROLLER 


RHCS3: 
RHBAE : 


176752 
176750 


:CONTROL AND STATUS REG #3 
;BUS ADDRESS EXTENSION REGISTER 


SEQ 0056 


on 
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2773 
2774 THE FOLLOWING LOCATIONS ARE RESERVED FOR REGISTER SAVES 
2775 ANY TIME THERE IS AN ERROR ALL THESE WILL BE FILLED 
2776 ONLY SOME MAY BE PRINTED BUT ALL WILL BE FILLED TRUE 
strr FOR THE TIME JUST AFTER THE "‘ERROR'’ ERROR COMMAND 
2779 015022 000000 DB: 0 sDATA BUFFER 
2780 015024 000000 - wC: 0 :WORD COUNT 
2781 015026 000000 BA: 0 :BUS ADDRESS 
gree 015030 000000 CS2: 0 :CONFROL AND STATUS 2 
2784 
2785 015032 000000 CS1: 0 CONTROL AND STATUS 1 
2786 015034 000000 ERI: 0 sERROR #1 
2787 015036 000000 DST 0 ‘DESIRED SECTOR/TRACK ADDRESS 
2788 015040 000000 ER2 0 TERROR #2 
2789 015042 000000 OF 0 : OFFSET 
2790 015044 000000 CA 0 DESIRED CYLINDER ADDRESS 
2791 015046 000000 ER3 0 sERROR #3 
2792 015050 000000 AS 0 ATTENTION SUMMARY 
2793 015052 000000 MR 0 =MAINTAINABILITY 
2794 015054 000000 DS1 0 “DRIVE STATUS 
2795 015056 000000 DT: 0 DRIVE TYPE 
2796 015060 000000 SN: 0 :SERIAL NUMBER 
2797 015062 000000 EC1: 0 :ECC POSITION 
2798 015064 000000 EC2: 0 SECC PATTERN 
2799 015066 000000 LA: 0 + LOOK -AHE AD 
sae 015070 000000 CC: 0 CURRENT CYLINDER ADDRESS 


On 
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ot sFLAGS AND INTERNAL PROGRAM CONTROL WORDS 

2805 

2806 

2807 015072 000010 UNITS: .BLKW 8. sTHIS 1S FILLED. WITH =1 

2808 015112 000000 UNIT: WORD 0 [UNIT UNDER TES 

2809 015114 000000 NOUNIT: .WORD 0 NUMBER OF unis PRESENT 

2810 [USED TO KEEP TRACK OF UNIT UNDER TEST 

2811 015116 000000 NUNIT: .WORD 0 USED TO DETERMIN IF THERE ARE MORE 

2812 : THAN ONE UNIT 

2813 015120 000000 SELECT: .wORD 0 sALL ONES INDICATE UNIT TO BE SELECTED 

gis 015122 000000 UNITSL: .WORD 0 sUNIT NO. SELECTED 

cote 015124 000000 ERFLG$: 0 sERROR FLAG 

2818 015126 000000 SAVDT: 0 :SAVE DRIVE TYPE REGISTER 

2819 sFOR COMPARISON IN DRIVE CLEAR TEST 

2820 ZAND RH INIT TEST 

2821 015130 000000 SAVSN: 0 SAVE SERIAL NUMBER REGISTER 

2822 :FOR COMPARISON IN DRIVE CLEAR TEST 

th :AND RH INIT TEST 

sacs 015132 000000 PCUSR: 0 :SAVE PC OF JSR WHICH GAVE THE ERROR 

2827 015134 000000 ATTENT: 0 ATTENTION BIT FOR PRESENT UNIT 

cee 015136 000000 TOTALAT: 0 TOTAL ATTENTION BITS 

g830 015140 000000 TMPILL: 0 TEMPORARY ILLEGAL FUNCTION 

2832 015142 000000 TSECC: 0 FLAG TO SAY IF ECC TEST OR NOT 

2833 sWHEN =177777 IT IS AN ECC TEST 

ste WHEN =OI1T IS NOT AN ECC. TEST 

2836 015144 000000 TESDTE: 0 sFLAG TO SAY IF DRIVE TIMING ERROR OR NOT 

2837 WHEN = 177777 IT IS A DTE TEST 

tes sWHEN = 0 17 1S NOT A DTE TEST 

2840 015146 000000 TAGDTE: 0 TEMPORARY TAG USED IN DRIVE TIMING 

2841 sERROR TEST 
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000000 


000000 


000422 
000422 


000000 
000000 


000000 
000000 
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REGISTER ADDRESSES 


FUTABL: 
NOPERA: 
UNLOAD: 
RECALI: 
DCLEAR: 
RELEAS: 


SERCH: 


WRCHEK: 
WRCHDT: 
WRIDAT: 
WRIFOR: 
READAT: 


REFOR: 


SEECOM: 
OFSETC: 


RETCL: 
PKACK: 


READIN: 
ILLEGL: . 


WRFROM: 
REINTO: 


TSTNM: 
FIRST: 


RH70: 


SILOSZ: . 


; TABLE FOR ATTENTION BITS 
ATTENTION TABLE 


002 004 ATABLE: 
040 


020 
200 


FUNCTION EQUATES 


H 5 
15:07 PAGE 60 


; TABLE OF COMMAND FUNCTIONS FOR RHCS1 
; THEN ‘’GO'’ BIT HAS TO BE SET 


;NO OPERATION 

;UNLOAD (STAND BY) 
;RECALIBRATE 

s;ORIVE CLEAR 

RELEASE (DUALPORT OPERATION) 


; SEARCH ge a 

:WRITE CHECK DAT 

sWRITE ety HEADER AND DATA 
WRITE DAT 

s WRITE HEADER AND DATA (FORMAT) 
READ DATA 

;READ HEADER AND DATA 


: SEEK COMMAND 

;OFFSET COMMAND 

;RETURNTO CENTERLINE 

;PACK ACKNOWLEDGE 

;READ IN 

;COMPUTED ILLEGAL FUNCTION 


;DATA BUFFER FOR READ WRITE 


-BLKW 


-BYTE 


274. 
274, 


WRITE FROM THIS BUFFER 
“READ INTO THIS BUFFER 


; TEST NUMBER 
s1F ZERO WILL TYPE HEADER 
s1f ONES WILL NOT TYPE HEADER 


FLAG = 1 FOR RH70 CONTROLLER 
sFLAG = 0 FOR RH11 
:RH SILO SIZE 


1,2,4,10,20,40,100,200 


SEQ 0059 





on 
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CZRJHD.P11 28-MAR-79 09:16 REGISTER ADDRESSES SEQ 0060 

2896 
2897 . SBTTL 
2898 -SBTTL ***PROGRAM SETUP & SETUP TESTS#*** 
a0 -SBTTL 
2901 017350 012737 177777 015120 BEGIN2: MOV 4 ,@*SELECT SELECT UNIT 
2902 017356 000402 BR ART 
2903 017 005037 015120 BEGIN: CLR SPSELECT 00 NOT SELECT UNIT 
2904 NORMAL RUN 
2905 
2906 017364 START: 
2907 017364 000005 RESET 
2908 -SBTTL INITIALIZE THE COMMON TAGS 
2909 >; CLEAR THE-COMMON TAGS (SCMTAG)<AREA 
2910 017366 012706 001100 MOV #SCMTAG,RO ::FIRST LOCATION TO BE CLEARED 
2911 017372 005026 CLR (R6)+ :;CLEAR MEMORY LOCATION 
2912 017374 022706 001140 CMP WSWR,R6 ;;DONE? 
2913 017400 001374 BNE -6 :;LOOP BACK IF NO 
2914 017402 012706 001000 MOV #STACK,SP ::SETUP THE STACK POINTER 
2915 SINITIALIZE A FEW VECTORS 
2916 017406 012737 057530 000020 MOV #SSCOPE ,a#1OTVEC 13 00 VECTOR FOR SCOPE ROUTINE 
2917 017414 012737 000340 000022 MOV #340, as lOTVEC+2 s;LEVEL 7 
2918 017422 012737 061746 000030 MOV #SERROR ,AMEMTVEC er VECTOR FOR ERROR ROUTINE 
2919 017430 C12737 000340 000032 MOV #340, aWEMTVEC +2 siLEVEL 7 
2920 017436 012737 062516 000034 MOV #STRAP, a#TRAPVEC :; TRAP VECTOR FOR TRAP CALLS 
2921 017444 012737 000340 000036 MOV #340, ,aMTRAPVEC*+2;LEVEL 7 
2922 017452 012737 062606 000024 MOV ASPWRON ,a#PWRVEC ;;POWER FAILURE VECTOR 
2923 017460 012737 000340 000026 MOV #340, a#PWRVEC+2 ;;LEVEL 7 
2924 017466 005037 001212 CLR STIMES :; INITIALIZE NUMBER OF ITERATIONS 
2925 017472 005037 001214 CLR SESCAPE >: CLEAR THE ESCAPE ON ERROR ADDRESS 
2926 017476 112737 000001 001115 MOVB #1, SERMAX ;s ALLOW ONE ERROR PER TEST 
2927 017504 012737 017504 001106 MOV g. ALP Ae s INITIALIZE THE LOOP ADDRESS FOR SCOPE 
2928 017512 012737 017512 001110 MOV »SLPERR ::SETUP THE ERROR LOOP ADDRESS 
2929 ::SIZE FOR A HARDUARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
2930 >:EQUAL TO A ‘’=1"', SETUP FOR A SOFTWARE SWITCH REGISTER. 
2931 017520 013746 000004 MOV Q@MERRVEC,-(SP) ;;SAVE ERROR VECTOR 
2932 017524 012737 017560 000004 MOV #64$,aMERRVEC ;;SET UP ERROR VECTOR 
2933 017532 012737 177570 001140 MOV #DSWR, SWR :;SETUP FOR A HARDWARE SWICH REGISTER 
2934 017540 012737 177570 001142 MOV #DDISP, DISPLAY ::AND A HARDWARE DISPLAY REGISTER 
2935 017546 022777 177777 161364 CMP #-1,aSWR >; TRY TO REFERENCE HARDWARE SwWR 
2936 017554 001012 BNE 66$ :;BRANCH IF NO TIMEOUT TRAP OCCURRED 
2937 ::AND THE HARDWARE SWR IS NOT = -1 
2938 017556 000403 BR 65$ ::;BRANCH IF NO TIMEOUT 
2939 017560 012716 017566 64$: MOV #65$, (SP) ::SET UP FOR TRAP RETURN 
2940 017564 000002 RTl 
2941 017566 012737 000176 001140 65%: MOV #SWREG, SWR ::POINT TO SOFTWARE SwWR 
2942 017574 012737 000174 001142 MOV #DISPREG, DISPLAY 
4 017602 012637 000004 66$: MOV (SP)+,a#ERRVEC ;;RESTORE ERROR VECTOR 

44 
2945 
sa 

4 
2948 017606 012737 000000 177776 STARTA: MOV #0,PS :SET PROCESSOR STATUS 10 0 
2949 017614 012777 057442 175122 MOV WRPVECT,@RPVEC ;THIS IS FOR UNTIMELY DRIVE INTERRUPTS 
2950 017622 004737 060506 JSR PC ,aaSTKINT INITIALIZE TTY KEYBOARD 
2951 017626 005737 017332 1ST ae#F RST :1S THIS FIRST TIME ROUND ? 


an 
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017632 
017634 


017636 


017642 
017642 
017646 


017742 


017742 
017746 


020002 


020002 
020006 


020076 
020076 
020102 


020172 
020172 
020176 


020274 
020274 
020300 


020364 
020364 
020370 
020450 
020450 
020454 
020534 
020534 
020540 
020574 
020574 
020600 
020660 


020660 


020666 


020702 


28-MAR-79 


001001 
000402 
000137 


104401 
000435 


104401 
000415 


104401 
000433 


104401 
000433 


104401 
000436 


104401 
000431 


104401 
000427 


104401 
000427 


104401 
000415 


104401 
000427 


012737 


005737 


001005 


09:16 


020660 


017650 


017750 


020010 


020104 


020200 


020302 


020372 


020456 


020542 


020602 


177777 =017332 


000042 
001140 000176 


MACY11 30A(1052) 


3; 838: 
82$: 


SND1: 
. SBTTL 


J 5 
24-MAY-79 15:07 PAGE 62 
INITIALIZE THE COMMON TAGS 


BNE 
BR 


MOV 


TST 
BNE 
CMP 
BNE 


1$ ;DON'T TYPE HEADER IF NOT 
2$ ; TYPE HEADER IF SO 

a#SnD1 

tty pbb ASCIZ STRING 


64% GET OVER THE ASCIZ 
<15><12>7RP04/5/6 DISKLESS CONTROLLER TEST = PART I] = CZ2RJH-D? 


67% 2 i TYPE ASCIZ STRING 
66$ :GET OVER THE ASCIZ 
<15><12>/REVISION. DATE: DEC-78/<15><12> 


09% ie TYPE ASCIZ STRING 
68$ ;GET OVER THE ASCIZ 
<15><12>/ALL DCL'S UNDER TEST MUST BE LOCKED ON CORRECT PORT/ 


71% they ASCIZ STRING 
70$ GET OVER THE ASCIZ 
<15><12>/1F CHANGES ARE REQUIRED ON PORT SWITCH, A CYCLE UP/ 


.73$ ght tt ASCIZ STRING 
72% GET OVER THE ASCIZ 
<15><12>/SEQUENCE 1S REQUIRED FOR STROBING THE PORT SELECT FLOP/<15><12>° 


yy ii TYPE ASCIZ STRING 
74% ET OVER THE ASCI2Z 
<15><12>/ALL DCL'S NOT UNDER TEST MUST BE SWITCHED OFF/<15><12> 


77% 3; TYPE ASCIZ STRING 
7 7:GET OVER THE ASCIZ 


<15><12>/eeeeeeererereeeeeeeeeereneeeeeeeeeneeeeneee / 


79% is TYPE ASCIZ STRING 
;GET OVER THE ASCIZ 
<15><12>/1F THIS 1S NOT DONE, ERRORS WILL RESULT ON/ 


,81$ is TYPE ASCIZ STRING 
80% :GET OVER THE ASCI2Z 
<15><12>/'NED' TESTS (121 & 136)/ 


,83% >; TYPE ASCIZ STRING 
3;GET OVER THE ASCIZ 


<19><12>/eeeererereerraeeeeeeeeeeeeeeeeeeeeee eee ees / 


#-1,a#F IRST NEXT TIME DO NOT GIVE HEADER 


GET me 4% SOt TWARE weet REGISTER 


;;ARE WE RUNNING UNDER XXDP/ACT? 


64% ;BRANCH IF YES 
SWR,#SWREG ‘SOF TWARE SWITCH REG SELECTED? 
65$ 3; BRANCH IF NO 





on 


CZRJHDO,RPOS/5/6 DSKLS CIRLR2 MACYI1 30A(1052) 24-MAY-79 15:07 “pag GE 65 
CZRJHD.P11 28-MAR-79 09:16 GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0062 
3008 020704 104406 GTSWR 3;GET SOFT-SWR SETTINGS 
3009 020706 000403 BR 65% 
3010 020710 112737 000001 001134 648: MOVB #1, SAUTOB 3;SET AUTO-MODE INDICATOR 
Sy 020716 65$: 
3013 020716 032777 010000 160214 RH70CK: BIT #SW12,aSWR ;LOOK TO SEE IF USING RH70 
3014 020724 001403 BEQ 3$ s1F Swi2 = 0, SKIP NEXT 
ore 020726 012737 000001 017334 MOV #1,a#RH70 z1F Swi2 = 1, CU IS AN RH70 
3017 020734 005737 015120 3$: TST @#SELECT 3200 START 
3018 020740 001434 BEQ TST ;G0 TO FIRST TEST tr STARTING FROM 200 ------ ) 
3019 020742 104401 020750 TYPE ,65$ 3 TYPE ASC1Z STRING 
3020 020746 000422 BR 64% ;GET OVER THE ASCIZ 
3021 3765$: .ASCIZ <15><12>/SELECT UNIT NUMBER TO BE TESTED 2/ 
3022 021014 64$: 
3023 021014 104412 RDOCT 
3024 021016 042716 177770 BIC #177770,(SP) sONLY KEEP LAST 3 BITS 
3025 021022 011637 015112 MOV (SP) ,@#UNIT ;SAVE UNIT TO BE TESTED 
sass 021026 012637 015122 MOV (SP)+,@#UNITSL ;SAVE UNIT TO BE TESTED 
3028 


on 


CZRJHDO,RPO4/5/6 DSKLS CTRLR2 


CZRJHD.P11 


021032 


021054 
021062 


Wwnrn—— 
oooco 


021224 
021224 


021230 
021232 
021234 


021240 


021262 
021266 


021316 
021316 


021330 


021360 
021360 


021366 
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000427 


012746 


104402 
000000 
000137 


012737 


000413 


000420 


000413 


012737 
012737 


000001 


061756 


021110 
000024 
014746 


000006 


177776 
020000 
021146 


000204 


044712 


021332 


061746 
000006 


MACY11 


001212 


017330 
000030 


000004 


000004 
001200 
160002 


000004 


000030 
000004 


"at eae 24-MAY-79 15:07 * PAGE 64 
T VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0063 
ppeeererrerrereererereeeeerererereeerereeeeeeeeeeenererereereres 
s*TEST 1 REFERENCE EACH REGISTER 
he REFERENCE EACH REGISTER BY A MOVE INSTRUCTION 
pp eeeeeererrerereerererreeeerereteeerereneeeeeteteReetererererere 
TST1: SCOPE 
MOV #1,STIMES “33D0 1 ITERATION 
MOV @STACK, SP ;SET UP STACK POINTER 


MOV WTTNO,Q#TSTNM = ;THIS SAVES TEST NUMBER 
MOV WREGSA] ,QMEMTVEC; ERROR VECTOR SO THA’ 
NO REGISTERS ARE SAVED 


MOV #2$,,a#ERRVEC 4 a UP FOR BUS TIMEOUT 
MOV #24,R0 THERE ARE 24 REG TO TEST 
MOV #RHDB RI TRI NOW HAS ADDR OF ADDR OF FIRST REG. 
1$: MOV a(R1)+,R2 ;READ HARDWARE REG. 
DEC RO ; COUNT DOWN 
BNE 1$ ;BRANCH IF 24 al a 
BR 3$ ;BRANCH IF 24 D 
2$:  ° MOV WERRVEC*+2,QWERRVEC ; RESTORE TRAP CATCHER 
CMP (SP)+, (SP) + ;CLEAN STACK 
MOV -2(R1), STMP1 ;STORE FAILING REG ADDR 
ERROR 15 REGISTER NON EXISTANT 
BIT #SW13,aSWR ; INHIBIT ERROR PRINTOUT ? 
BNE 4$ ;BRANCH IF YES 
TYPE roe 2s TYPE ASCIZ STRING 


BR GET OVER THE ASCI1Z 
tai -ASCIZ oi5><12>/T0 CHANGE BASE ADDRESS, RESTART AT ADDRESS / 
4$: 


MOV #ADDMOD ,- (SP) ;GET READY TO TYPE STARTING ADDRESS 
:OF “‘CHANGE OF BASE ADDRESS'’ ROUTINE 


HALT :STOP TO FORCE THE RESTART! 
4$: JMP a#SEOP :GO TO END OF PROGRAM e-eeeeee-e------ > 
3$: MOV #TRP aed s INITIALIZE VECTOR 

CLR RH70 s INIT RH INDICATOR ++ C.W 

TST @RHBAE sADDRESS RPBAE (RH11/RH70?) 

INC RH70 sFOUND AN RH70 

TYPE rh +: TYPE ASCIZ STRING 

BR GET OVER THE ASC12Z 
piers -ASCIZ cis>ct2>snurO CONTROLLER / 
66$: 

BR RIN :SET MASK AND GET OUT 
TRP: TST (SP)+ sADJUST THE STACK 

TST (SP)+ 

TYPE ret tg asieee ASCIZ STRING 


BR ;GET OVER THE ASCI2 
33658: .ASCIZ OTS ct2>/RH11 CONTROLLER / 


64$: 
RIN: MOV #SERROR ,AMEMTVEC; RESTORE ERROR VECTOR 

:$0 THAT REGISTERS ARE SAVED 
MOV WERRVEC+2, aWERRVEC sRESTORE TRAP CATCHER 





on 


; a 5 
CZRJHDO,RPO4/S/6 DSKLS CTRLR2 MACY11 30A(1052) 24-MAY-79 15:07 PAGE 65 


CZRJHD.P11 | 28-MAR-79 09:16 11 REFERENCE EACH REGISTER SEQ 0064 
3086 sFIND THE SILO SIZE 
3087 [IF 11S A RH70C MODIFY TESTS 50 AND 51 
3089 021374 004737 046116 JSR PC, asCLDISK : CONTROLLER CLEAR 
3090 021400 005037 017336 CLR SILOSZ ‘CLEAR SILO COUNTER 
3091 021404 013777 017336 173334 138: Mov SILOSZ, @RHDB [LOAD SILO 
3092 0214612 005237 017336 INC SILOSZ [KEEP COUNT 
3093 021416 032777 000100 173330 BIT #IR, | @RHCS2 [1S THE SILO FULL? 
3094 021424 001367 BNE 13$ ‘BRANCH IF NO 
3095 021426 022737 000406 017336 CMP #262., SILOSZ :RH70C? 
3096 021434 001031 BNE 14$ ‘BRANCH IF NO 
3097 021436 005037 032320 CLR VAR142 ‘VAR1T IN TEST 50 
3098 021442 012737 015220 032326 MOV #WRFROM,VAR242 ‘VAR2 IN TEST 50 
3099 021450 062737 000400 032326 ADD #256., VAR2+2 
3100 021456 062737 000400 032326 ADD #256., VAR2+2 
3101 021464 005037 032766 CLR VAR342 :VAR3 IN TEST 51 
3102 021470 012737 015220 032774 MOV #WREROM, VAR4+2 :VARG IN TEST 51 
3103 021476 062737 000404 032774 ADD #260., VAR4+2 
3104 021504 062737 000404 032774 ADD #260., VAR4+2 
3105 021512 012737 052737 033024 MOV #52737,VAR5 :VARS IN TEST 51 
thd 021520 004737 046116 148: JSR PC, aaCLDISK sCONTROLLER CLEAR 
3108 


on 


nN 5 
CZRIJHDO,RPO4/5/6 DSKLS CTRLR2 MACY11 30A(1052) 24-MAY-79 15:07 PAGE 66 


CZRJHD.P11 28-MAR-79 09:16 11 REFERENCE EACH REGISTER SEQ 0065 
3109 
3110 sy eeeeereerereeererereeerererereretreteeeeeeeeeneneeAeReeeeAAeee ee 
gt} s*TEST 2 RHCS2-CONTROL AND STATUS 2 
3113 3* THIS PARTIALLY TESTS RHCS2 TO ENABLE DETERMINATION 
sig 7* OF THE NUMBER OF DRIVES PRESENT 
3116 sp eeeeerereererrereererererreereretrereneeteneetenteneeeeerereee 
3117 021524 000004 TST2: SCOPE 
3118 021526 012737 000001 001212 MOV #1 ,STIMES 3:00 1 ITERATION 
3119 021534 012706 001000 MOV STACK, SP sRESET STACK 
3130 021540 012737 000002 017330 MOV #TTNO,@#TSTNM ; THIS SAVES TEST NUMBER 
$1St s*CHECK TO SEE If PROGRAM IS RUNNING WITH AN RH70 
3124 021546 005737 017334 TST a#RH70 : TEST FOR RH70 CONTROLLER 
3125 021552 001402 BEQ 308 [IF FLAG = 1, SKIP THIS TEST 
3126 021554 000137 021602 JMP TS13 JUMP TO NEXT TEST -------------------- ) 
oer 021560 30$: :1F FLAG = 0, DO THIS TEST 
3129 021560 013737 014754 021574 MOV @#RHCS2 ,a#UN+2 
3130 021566 004537 045664 JSR R5,a#B11S" ;TEST BITS IN REGISTER 
3131 021572 020017 UN: 20017 sONLY THESE BITS ARE TEST READ/WRITE 
3132 021574 000000 WORD 0 ADDRESS OF REG. BEING TESTED 
3133 021576 104001 ERROR 1 IN CORRECT DATA RECEIVED 
ie 021600 000207 RTS PC RETURN TO BLT3 ROUTINE 
3136 
3137 
3138 
3139 
3149 
3141 ppetreerenrereerrertrereeeetenterettertereneeKeteeeeeee AeA ee 
3142 s*TEST 3 PARTIAL TEST OF RHAS* FOR UNIT NUMBERS PRESENT 
3143 ‘eeeeeeeeeeteeeeeeeeeeeeeteteeererketeteeeeeKeeKeteeteteeeeeee es 
3144 021602 000004 is13: SCOPE 
3145 021604 012737 000001 001212 MOV #1,STIMES :;D0 1 ITERATION 
ise 021612 012737 000003 017330 MOV #TINO,@#TSTINM ;THIS SAVES TEST NUMBER 
4 
3148 021620 013701 014774 MOV Q#RHAS,R1 :R1 HAS ADDRESS OF RHAS 
3149 021624 012711 177777 MOV #-1,aR1 THIS CLEARS RHAS (SURPRISED!) 
3150 021630 011137 001126 MOV aR1,a#$BDDAT :TEST DATA 
3151 021634 105737 001126 TSTB a*SBDDAT 
3152 021640 001405 BEQ TST4 :BRANCH IF GOOD 
3153 021642 005037 001124 CLR a#$GDDAT :G009 DATA 
3154 021646 010137 045662 MOV R1,a#REGADR FAILING REG. RHAS 
3155 021652 104001 ERROR 1 :RHAS DOES NOT CLEAR 
3136 : :WITH ONES MOVED INTO IT 
1 


on 


CZRIHDO,RPO4/5/6 DSKLS CTRLR2 


CZRJHO.P11 


PAWN AAI AIA A 
i kt at et 
oo 
o 


021654 
021656 
021664 
021666 


021672 
021700 
021702 
021706 


021756 


021774 
022000 


022012 
022016 


022026 


022032 
022040 
022042 


022046 
022046 
022052 


022100 
022100 
022104 


022202 
022202 
022206 
022312 
022312 
022316 
022412 


022412 
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000004 


004737 
032777 


000137 


104401 
000412 


104401 
000436 


104401 
000441 


104401 
000455 


000137 


000001 
060506 
020000 
021710 


014774 
014754 


000010 
014760 


177777 


015136 
015137 


022416 


020000 


022754 


022054 


022106 


022210 


022520 


044712 


MACY11 4) Pesen 


001212 


157240 


157100 


B 6 
24-MAY-79 15:07 PAGE 67 
PARTIAL TEST OF RHAS FOR UNIT NUMBERS PRESENT SEQ 0066 


‘s@eeeererererereeterereeteetereeeeerereneeneeeeeeeeeeeeeeeeeeeeee 


se TEST & 


TEST FOR DRIVES PRESENT USING RHAS AND RHCS2 


peeeeereerrererenererereeretetrererereeeeKeeReeReeeeAeeerKeReees 


1814: 


2: 


33698: 
68$: 


70% 


SCOPE 
MO 


#1, STIMES ;;D0 1 ITERATION 


START WITH AN INIT 
PC ,a#$TKINT sINITILIZE TTY KEYBOARD 
#SW1S,QSWR . ; INHIBIT ERROR TYPEOUT ? 
4% SKIP NEXT IF SO 
oe +e TYPE ASCIZ STRING 

;GET OVER THE ASCIZ 
ofS ><129¢159<12>/, OOKING AT RHAS = DRIVES PRESENT/ 
@A#RHAS RI ;R1 HAS ADDR. OF RHAS 
O#RHCS2,R2 ;R2 HAS ADDR. OF RHCS2 
aR2 ;CLEAR RHCS2 
#8. ,RO ; COUNT 
QARHERI,R4 ;R4 HAS ADDR. OF RHERI 
ot Saat ;MOVE ERRORS INTO RHER1 


4 bas se UNIT NO. 


RO ; COUN 

1$ ;BRANCH IF 8 NOT DONE 

@R1,a#TOTALAT :SAVE TOTAL ATTENTION 
sUSED IN DRIVE CLEAR TEST 


@#TOTALAT+1 ;CLEAR UPPER BYTE 

ari ;TEST FOR ANY DRIVES PRESENT 

2$ :NONE RESPONDING - TYPE THE MESSAGE 

XE2 ;SOME THERE - GO FILL ‘UNITS"’ TABLE 
#SW13,QSWR : INHIBIT ERROR TYPE OUT? 

3$ "NO DRIVES'' MESSAGE IF NO 

SELTST CHECK FOR SELECTED UNIT START AND LOAD 


UNITS" TABLE WITH DESIRED DRIVE IF SO 


.67$ ie TYPE ASCIZ STRING 
66$ GET OVER THE ASCIZ 
o15><12>/N0 DRIVES-RHAS=0/ 


69% 42444 ASCIZ STRING 
68% GET OVER THE ASCIZ 
<15><12>/WRITING ONES INTO ERROR REGISTER #1 FOR ALL UNIT NUMBERS/ 


71% 4h ASCIZ STRING 
70$ ;GET OVER THE ASCIZ 
<15><12>/DOES NOT SET ANY BIT IN THE ATTENTION REGISTER SO ABORT PROGRAM 


73% sty ASCIZ STRING 


2$ ;GET OVER THE ASCIZ 
<15><12>/10 LOOP ON THIS TEST WO PRINTOUT SET SWITCHES 13, 8 & 2/ 


awSeOP 360 QUl---------- en nn n-ne nn----------- > 


aon 


CZRJHDO,RPOG/5/6 DSKLS CTRLR2 
28-MAR-79 09:16 


CZRJHD.P11 


022416 


022460 
022464 


022510 


022512 


022530 
022532 
022540 


022542 
022550 


022552 
022556 


022600 
022600 
022610 
022626 


022640 


001467 
022777 


001457 


104401 
000410 


010546 
104405 
104401 
000406 


017746 
104402 
104401 
000422 


015072 
015114 
000010 


001176 
001176 


172262 
024020 
020020 


024021 
020021 


024022 
020022 


022560 


022612 


172150 
022642 


MACY11 30A(1052) 
14 


172302 
172272 


172262 
172252 


172242 
172232 


KE2: 
23: 


3$: 


4$: 


C 6 
24-MAY-79 15:07 PAGE 68 
TEST FOR DRIVES PRESENT USING RHAS AND RHCS2 


;*SET UP UNITS TABLE 


MOV #8.,R0 : ; COUNTER 

MOV #UNITS,R3 _TPOINTER 

MOV #-1, (R3)4 ; PRESET BLOCK TO ALL ONES 

DEC RO : “COUNT 

BNE 3$ “BRANCH IF 8 NOT DONE 

MOV #UNITS,R3 ‘POINTER 

CLR RS 

CLR a#NOUNIT :NO. OF UNITS PRESENT 

MOV #8. ,R0 : COUNTER 

MOV ari .avSTMPO “TEMPORARY STORAGE 

ROR ae$TMPO “SET CARRY IF ONE IN 0 BIT 

BCC 5$ 

MOV RS ,@RHCS2 ; INSERT UNIT NUMBER 

CMP #26020,aRHDT  :1S THIS A DUAL PORT RPOG ? 

BEQ 6$ ‘TYPE DRIVE NO. IF SO 

CMP #20020,aRHDT  :1S THIS A SINGLE PORT RPOG ? 

BEQ 6$ [TYPE DRIVE NO.IF YES 
peeeeereeeereeererereeeteeetererenetieeKeneKeKaeeeereeeKteeee ee 

CMP #24021,@RHDT ;1S THIS A DUAL PORT RPOS ? 

BEQ 6$ ‘TYPE UNIT NO. OUT 

CMP #20021,aRHDT  :1S THIS A SINGLE PORT RPOS ? 

BEQ 6$ ‘TYPE UNIT NO. IF SO 

CMP #24022,a@RHDT i18 THIS A DUAL PORT RPO6 ? 

BEQ 6$ TYPE THE NO IF SO 

CMP #20022, @RHDT “15 THIS A SINGLE PORT RPO6 ? 

BEQ 6$ ‘TYPE THE NO IF SO 


sp eeeneeecereereceeereretetertteereterrerteeeeteeeeereteerereeees 


37098: 


7*NO...1T'S NOT AN RPO4/RPOS/RPO6 DEVICE 
:*SO TYPE OUT THE DEVICE TYPE 


TYPE ht ty ii TYPE ASCIZ STRING 
BR ;GET OVER THE ASCIZ 
eASCIZ O18 <12>/UNIT NUMBER / 


MOV R5,-(SP) :;GET READY TO TYPE UNIT NUMBER 


TYPDS 

TYPE ,67$ 3; TYPE ASCIZ STRING 
BR 66% 3:;GET OVER THE ASCIZ 
eASCIZ) /, RHDT = / 
7 = ORHDT,-(SP) ;GET READY TO TYPE RHDT 
TY 

TYPE ,69% hot ASCIZ STRING 

BR 68% GET OVER THE ASCIZ 
LASCIZ 2? = NOT AN RPOG/RPO5/RPO6 DEVICE !!? 


SEQ 0067 


on 


CZRIHDO ,RPO4/5/6 DSKLS CTRLR2 


CZRJHD,P11 


022734 
022742 
022750 


022754 
022760 
022762 
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000407 
010523 


013737 


001225 


015114 


015120 
915122 


MACY11 30A(1052) 
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015112 


68$: 
6$: 


5$: 


SELTST: 


D 6 
24-MAY-79 15:07 PAGE 69 
TEST FOR DRIVES PRESENT USING RHAS AND RHCS2 


;NO RPO4/5/6 FOUND SO BRANCH 


R5,(R3)¢4 
, SCRLF 
R5,-(SP) ;PUT DRIVE NO. ON STACK 
; TYPE DRIVE NO. 
@#NOUNIT ; INCR TOTAL NO. OF UNITS 
RS :"RHCS2° UNIT ADDRESS 
RO sDRIVE COUNTER DOWN ONE 
4% :TEST AND DO NEXT UNIT IF 8 NOT DONE 
Q#UNITS,Q@#UNIT ;SET UNIT NO. TO FIRST ONE FOUND/OR 0 
Q@#NOUNIT,@#NUNIT ;SAVE NO. OF UNITS 
Q#NUNIT :1f NUNIT = 0 THEN ONLY ONE UNIT 
:1— NUNIT > 0 THEN MORE THAN ONE UNIT 
a#SELECT :STARTING ADDRESS 200 ? 
TST5 sBRANCH IF STARTING FROM 200 


$ 
Q#UNITSL,Q#UNIT ; CHANGE UNIT NUMBER TO SELECTED ONE 


On 





2 
1 


MACY11 


12 
06 


CZRJHDO,RPO4/5/6 DSKLS Prd 
CZRJHD.P11 28-MAR-79 09:1 
3291 
3292 
3293 
3294 
3295 
3296 
3297 
3298 
3299 
3300 
3301 022770 000004 
3302 022772 012737 000001 001 
cco 023000 012737 023450 001 
3305 023006 004737 046116 
3306 023012 005037 015134 
3307 
3308 
3309 
3310 023016 005737 015112 
3311 023022 001022 
3312 023024 012700 000041 
3313 023030 122710 000011 
3314 023034 001015 
sie 023036 005737 015120 
3317 023042 001012 
3318 
3319 
3320 
3321 
3322 023044 012700 015072 
Sse 023050 005720 
3325 023052 022710 177777 
3326 023056 001404 
3327 023060 011037 015112 
3328 023004 005337 015114 
3329 023070 013700 015112 
3330 
3331 
3332 
3333 
3334 
3335 
3336 
3337 
3338 
3339 
3340 
3341 
3342 
3343 
3344 
3345 
3346 023074 116037 017340 015134 


E 6 
30A(1052) 24-MAY-79 15:07 PAGE 70 
14 TEST FOR DRIVES PRESENT USING RHAS AND RHCS2 


sp eteeeeeerererererereerererrerereerrreeeeteeeeeeteKeeeReeeeeeees 


s*TEST 5 TYPE SERIAL NUMBER AND DRIVE TYPE 

be READ SERIAL NUMBER REGISTER AND DRIVE TYPE REGISTER 

:* TYPE IT OUT AND PROCEED 

hg TO LOOP HERE SET SWITCH 8 AND THIS TEST NO AND RESTART 


ppeteeererererrrrrerrrerterererreerrerereeeeAeeeeeneaeerereeeee ee 


1ST5: SCOPE 


MOV #1,STIMES 3:00 1 ITERATION 


MOV #1$,SLPAOR ;:SET SCOPE LOOP ADDRESS 

ah GARRATS tte vo 

;*TEST FOR UNIT #0 

TST asUNIT ;1S UNIT #0 NEXT IN THE UNITS TABLE ? 


BNE 10$ ;1F NOT, TEST THIS UNIT 
MOV #41,R0 ;1F SO, CHECK THE LOAD MEDIA LOCATION 
CMPB #11, (RO) WAS 1S AN RPO4/5/6 ? 
BNE 10$ :NO... GO AHEAD AND TEST UNIT #0 
TST @a#SELECT WAS UNIT #0 SELECTED ? 
:(1E. WAS 1T A 210 START ?) 
BNE 10% :1F SO...TEST UNIT #0 


;*INCREMENT THE UNITS TABLE TO NEXT DRIVE (IF ANY) 
7* & DECREMENT THE ‘‘NOUNITS'’ PRESENT (TO BE TESTED) 


MOV #WUNITS,RO ;LOAD UNITS TABLE POINTER 
TST (RO) + >SELECT THE NEXT UNIT IN THE TABLE 
; (DOUBLE INCREMENT THE POINTER) 


CMP #-1, (RO) 1S THERE ANOTHER TABLE ENTRY PRESENT ? 
BEQ 10$ ;1F NOT (LOC = -1) ...MUST USE UNIT #0 
MOV (RO) ,Q#UNIT :SET UP TO BE THE UNIT UNDER TEST 


:DECREMENT BECAUSE UNIT #0 WON'T BE TESTED 
:RO CONTAINS THE UNIT UNDER TEST 


DEC @#NOUNITS 
10$: MOV a#UNIT,RO 


Heke eeeeeeeeeerereeeeeeeeeeeterereeeeeeeteetereeeeteeteerereeese 


: CLR a#RP06 ;CLEAR RPO6 DEVICE TYPE FLAG 

: CMP #24022, aRHDT ; DUAL PORT RPO6 ? 

: BEQ 2% YES...SET THE FLAG 

: CMP #20022, @RHDT : SINGLE PORT Apel 

: BEQ 2$ YES...SET FL 

: BR 3$ DON’ 1 SET THe “RPO FLAG 

3:28: MOV #-1,a#RP06 ;SET THE FLAG 

; 3%: ;ASSUME THE NEXT UNIT IS AN RPO4 


ppeweeeceecccererareerererersereesersateareeeeeeeeteereeneeeereee 


MOVB ATABLE(RO) ,Q#ATTENT ;SET APPROPRIATE ATTENTION BIT 


SEQ 0069 


an 







023206 


023230 
023230 
023234 


023236 


023254 


023256 


023274 


023276 


025316 


023320 
023320 
0233524 


023354 


023362 
023412 
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104401 
000414 


013746 
104405 
104401 
000410 


017746 
104402 
104401 
000410 


017746 
104402 


022777 
001425 
022777 
001421 


022777 


001430 
022777 


000454 


104401 
000413 
000435 


104401 
000413 





023110 


015112 
023154 


171604 
023210 


171546 


024020 


020020 


024021 
020021 


024022 
020022 


023326 


023364 


MACY11 30A(1052) 
15 


sp eeteerereererereererreerrereeereneteeeeKeeKeeeeReeKeneeeeerenee 


4$: 


33718: 


70$: 
5$: 


23738: 
72%: 





TYPE 
BR 
eASCIZ 
MOV 
TYPDS 
TYPE 
BR 
eASCIZ 
MOV 
TYPOC 
TYPE 
BR 
-ASCIZ 


MOV 
TYPOC 


TYPE 
BR 
-ASCIZ 
BR 
TYPE 
BR 
«ASCIZ 


24-MAY-79 
TYPE SERIAL NUMBER AND DRIVE TYPE SEQ 0070 
































6 
15:07 * page 7\ 


,65% one ASCIZ STRING 
64% ;GET OVER THE ASCIZ 
C15><12>/ TESTING: DRIVE NUMBER/ 


a#UNIT,-(SP) sUNIT NO. TO STACK 
;TYPE DRIVE NO. 
,67$ 3; TYPE ASCIZ STRING 
66% ::GET OVER THE ASCIZ 
<15><12>/SERIAL NO. = / 


@RHSN,-(SP) :;SAVE @RHSN FOR TYPEOUT 


3:G0 TYPE--OCTAL ASCIIAALL DIGITS) 
,69% ia TYPE ASCIZ STRING 


68% :GET > Sg THE ASCI2Z 
<15><12>/DRIVE TYPE = 


@RHDT,-(SP) ;;SAVE @RHDT FOR TYPEOUT 
3;G0 TYPE--OCTAL ASCII(ALL DIGITS) 


#24020, @RHDT ;DUAL PORT RPO4 ? 
4$ TYPE ASCII MSG OUT 
#20020, @RHDT ;SINGLE PORT RPO4 ? 
4$ TYPE THE MESSAGE 


#24021,@RHDT ;DUAL PORT RPOS ? 
5$ ; TYPE THE MESSAGE 
#20021 ,@RHDT SINGLE PORT RPOS ? 
5$ TYPE THE MESSAGE 


#24022 ,aRHDT ;DUAL PORT RPO6 ? 

6 ; TYPE THE MESSAGE 

#20022, QRHDT-.. ; SINGLE PORT RPO6 ? 

6$ ;TYPE IT OUT 

1$ DRIVE 1S NOT RP04/5/6 = SO 
;D0 NOT TYPE ANY MESSAGE OUT 


;~SHOULD NEVER HAPPEN AT THIS POINT 
UNLESS DRIVE GOT SICK WHILE TESTING 
;WAS IN PROGRESS 


,71$ is TYPE ASCIZ STRING 
70$ ;GET OVER THE ASCIZ 
<15><12>/DRIVE 1s" AN RP04/<15><12> 


1$ SKIP NEXT ONES 
.73% sii ASCIZ STRING 


72% :GET OVER THE ASCI2Z 
<15><12>/DRIVE 18° AN RPOS/<15><12> 


aon 
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CZRJHD.P11  28-MAR-79 09:16 .  . 15 TYPE SERIAL NUMBER AND DRIVE TYPE SEQ 0071 
3403 023412 000416 BR 1$ :SKIP NEXT 
3404 023414 6$: 
3405 023414 1046401 023422 TYPE 75$ i: TYPE ASCIZ STRING 
3406 023420 000413 BR 74$ :GET OVER THE ASCIZ 
3407 -;75$: .ASCIZ <15><12>/DRIVE 1§ AN RP06/<15><12> 
3408 023450 748: 
3409 ppeeeeeerereerrerereeerrrererreeeeeeerereneneneteeerererereneees 
3410 
3411 023450 005777 171330 1$: 1ST @RHSN :READ SERIAL NO. AND DRIVE TYPE 
3412 023654 005777 171322 . TST QRHDT ‘THESE TWO ARE TO HELP SCOPE LOOPS 
3413 0234660 017737 171320 015130 MOV @RHSN,@#SAVSN :SAVE TO CHECK IF CLR RHCS2 BIT 5 CLEARS ANY BIT 
3414 0234666 0177387 171310 015126 MOV BRHDT.a#SAVDT :SAVE TO CHECK IF CLR RHCS2 BIT 5 CLEARS ANY BIT 


H 6 
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CZRJHD. Pil 28-MAR-79 09:1 15 TYPE SERIAL NUMBER AND DRIVE TYPE SEQ 0072 
3415 , 
3416 
3417 pteeeerererrererereererererenereretterereeeeetereerererereneeeee 
aR SSTEST 6 CHECK MOL TO BE LOW 
3420 i* MAKE SURE THAT DRIVE IS OFF LINE BEFORE STARTING PROGRAM 
3421 ;¢ 1f DRIVE 1S ON LINE THEN AFTER TYPE OUT THE PROGRAM WILL 
a5 ;t HANG FOR EVER WAITING FOR DRIVE TO GO OFF LINE 
3424 sp ettererensererrrrrrerererererereteerinnereranenereneranerereeeee 
3425 023474 000004 1$16: SCOPE 
3426 023476 012737 000006 017330 MOV #TINO,Q#@TSTINM 8 ;THIS SAVES TEST NUMBER 
3427 023504 004737 046116 JSR PC ,a#CLDISK sGIVE INITILIZE 
3428 023510 032713 010000 BIT #MOL , ARS ;CHECK MOL IN RHDS1 
404 023514 001550 BEQ TS17 BRANCH IF MOL LOW 
3431 023516 104401 023524 TYPE ret +7 TYPE ASCIZ STRING 
3432 023522 000421 RR :GET OVER THE ASCIZ 
3433 3:65$: .ASCIZ ois><12>/ORIVE 1§ ON LINE - MOL IS HIGH/ 
3434 023566 643: 
3435 023566 104401 023574 TYPE 67% patyet ASCIZ STRING 
3436 023572 000424 aR 66$ :GET OVER THE ASCIZ 
3437 37678: .ASCIZ ot 5><12>/HI11 STOP ON DRIVE TO GET IT OFF LINE/ 
3438 023644 66$: 
3439 023644 104401 023652 TYPE 69% i 3 TYPE ASCIZ STRING 
3440 023650 000430 Ble 68% GET OVER THE ASCIZ 
3441 37698: .ASCIZ <15><12>/PROGRAM WILL HANG TESTING MOL TILL MOL IS LOW/ 
ett 023732 68$: 
3444 023732 032713 010000 1$: BIT #MOL ,AR3 ;CHECK MOL IN RHDS1 
3445 023736 001375 BNE 1$ ;BRANCH IF MOL IS HIGH 
3446 023740 104401 023746 TYPE ,71$ is TYPE ASCIZ STRING 
3447 023744 000434 BR 70% GET OVER THE ASCIZ 
3448 ::71$: .ASCIZ <15><12>/G00D - MOL 1S NOW LOW . PROGRAM WILL NOW BE EXECUTED/ 
3449 024036 70%: 
3450 
3451 


on 
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024036 
024040 
024044 


024052 
024056 
024064 


024072 
024076 
024100 
024102 


024104 


024112 


024120 
024124 
024126 
024130 


024132 


024140 
024144 
024146 
024150 
024152 
024154 
024156 
024160 


000004 
012706 
012737 
004737 
012777 
013777 
004037 
014750 


016264 
000023 


052777 
052737 
004037 
014750 


015220 
000023 


113737 


004037 


001000 
000007 


046116 
000001 
015206 


046616 


000001 


000100 


046616 


016311 


047020 


053150 


MACY11 30A(1052) 
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017330 


170712 
170664 


170644 


016314 


015245 


1 6 
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CHECK MOL TO BE LOW SEQ 0073 


ps, eteereeererrerererererererererererrerrtreeeeeteeteneeeeeTeeneeee 


s*TEST 7 


‘ 

. 
°@ 

© 
-* 

° 
3e 


PACK ACKNOWLEDGE COMMAND TEST 


THE PACK ACKNOWLEDGE COMMAND WILL BE LOADED INTO RHCSi WITH GO 
THEN ALL REGISTERS WILL BE CHECKED 

RH CLEAR WILL BE GIVEN 

THEN ALL REGISTERS WILL BE CHECKED 


*+@eereeererrereretereetererteterereteereeteeteeteeterereeteteteteeee 


1$17:- 


MOV #STACK ,SP ;RESET STACK 
MOV MTTINO,Q#TSTINM = ;THIS SAVES TEST NUMBER 
JSR PC ,a#CLDISK INIT AND SET UP GENERAL REG. 
;AND UNI] NUMBER 
MOV #DMD ,ARHAR SET DIAGNOSTIC MODE 
MOV Q@#PKACK,@RHCS1 ;LOAD PACK ACKNOWLEDGE COMMAND INTO RHCS1 
SAVE REGISTERS FOR COMPARISON AFTER GO 
JSR RO, @#SAVER 7 SAVE 
RHWC. ; FROM 


310 
sNUMBER OF REGISTERS SAVED 


:GIVE GO TO PACK ACKNOWLEDGE COMMAND 
BIS #G0,aRHCS1 3GO0 TO PACK ACKNOWLEDGE COMMAND 


; CHANGE SAVED REGISTERS TO EXPECTED VALUES 
BIS #VV,QMREINTO*30 ; SAVED RHDS1 


AFTER GO HAS BEEN GIVEN TO PACK ACKNOWLEDGE COMMAND 
SAVE REGISTERS AGAIN SO THAT COMPARISONS CAN 


BE DONE 

JSR RO, a#SAVER 7 SAVE 

RHWC ;F ROM 

WRF ROM 

19, ;NUMBER OF REGISTERS SAVED 


;AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 

;OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 

;$0 THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
MOVE Q#REINTO*25 ,a#WREROM*+25;SAVE UPPER RHAS 


;COMPARE REGISTERS BEFORE PACK ACKNOWLEDGE COMMAND 
sWITH AFTER GO 


JSR | RO,@#COMPAR ; COMPARE 

REINTO ;GOOD BUFFER 

WRFROM ; TEST BUFFER 

19. ; NUMBER 

1$ RETURN FOR ERROR 

1$ ; SAME 

2% RETURN FOR GOOD COMPARISON 
MOV Q#ERWORD,RS ;GETTING READY TO INDEX 


on 
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ZRJHD.P11 28-MAR-79 09:1 17 PACK ACKNOWLEDGE COMMAND [EST SEQ 0074 
3509 024164 060505 ADD R5,R5 OUBLE ERROR WORD 

Rei8 024166 016537 014746 045662 MOV RHWC- -2(R5), aNREGADR sFAILING REGISTER ADDRESS 
3512 024174 104001 ERROR i 7 IMPROPER REGISTER CHANGE 

3513 AFTER PACK ACKNOWLEDGE COMMAND 
3514 ;WITH GO IS GIVEN 

se12 024176 000207 RTS PC ;RETURN TO COMPARISION 

3517 024200 2$: 

3518 

3519 | Iban 
3520 :*TEST 10 MAKE CURRENT CYLINDER = 0 

3521 pp eeeeeererrerereerereerererereeteteereteeeeetererereerereereres 
3522 024200 000004 7$110: SCOPE 

3525 024202 012706 001000 MOV #STACK,SP ;RESET STACK 

3524 024206 012737 000010 017350 MOV #TTNO,Q#TSTNM ;THIS SAVES TEST NUMBER 

3525 024214 004737 046116 JSR PC ,a#CLDISK INIT DRIVE 

3526 024220 012777 000001 170550 MOV #DMD ,ARHMR ;SET DIAGNOSTIC MODE 

3527 024226 004037 050476 JSR RO, @#MAKECYL ; SUBROUTINE TO GIVE A SEEK 

3528 ;COMMAND FOLOWED BY AN INIT 

494 024232 600000 0 THIS SHUOLD CHANGE RHCC TO 0 
3531 

3532 -SBTTL 

3533 -SBTTL ***D] AGNOSTIC CODE*** 


on 
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024234 


024252 
024260 


024264 
024272 


024300 
024304 
024306 
024312 


024314 


024326 
024330 
024332 


000004 


000004 


012777 
012705 


013737 
012737 


012706 
011502 
010237 
005712 
062705 
020527 
101767 
000401 
104042 


013737 


000001 
177777 
000040 
014756 


000004 
024330 
001000 
045662 


000002 
015010 


001176 


MACY11 30A(1052) 


001176 
000004 


000004 
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SEQ 0075 
TIMOT=4 
M% 


REM 
THE FOLLOWING TESTS WILL ATTEMPT TO CATCH THOSE BUGS WHICH FAULT 
INSERTION HAS SHOWN US WE MISSED IN THE FIRST PART OF THIS TEST. 


THIS TEST WILL ASCERTAIN THAT THE ALL RH11 REGISTERS WIIL 
RESPOND TO 1.£. NOT CAUSE A NON-EXISTANT MEMORY ERROR WHEN ACCESSED 
y A "'TST’’ INSRUCTION. 


'WERARBRBBAABAAASZALASLALLAALASA SALAS ASE AAAS RR REAR ERR R RRR R RRR REARS ES SD 


TEST 11 BCTA LEGAL REGISTER RESPONSE TEST 


Sy eereneeerererererereeeeeeereeeereeeeeeeeteeeeeKeeeKenetenereeee 


TST11: 


SCOPE 
mM 


OV #1, STIMES ;;D0 1 ITERATION 
MOV #TTINO,Q#TSTNM = ;THIS SAVES TEST NUMBER 
MOV #CLR,@RHCS2 ;CLEAR RH11 CONTROLLER 
MOV WRHCS1,R5 sRS=LIST POINTER. 
MOV @#TIMOT,STMPO ;SAVE TIMEOUT VECTOR. 
MOV #£00,a#TIMOT ;SET VECTOR TO E00 
L00: MOV #STACK,SP ;SET STACK POINTER. 
100:, MOV (R5) ,R2 ;R2=RH11 ADDRESS. 
MOV R2,REGADR 
TST (R2) ;DOES THE RH11 REGISTER RESPOND? 
ADD #2,R5 ; UPDATE ADDRESS 
CMP R5,#RHEC2 = THE END OF LEGAL RH11 REGISTERS? 
BLOS 100 OPE 
BR 000 YES! GOTO 000. 
E00: ERROR 42 
000: MOV STMPO,a#TIMOT ;RESTORE TIMEOUT VECTOR. 


on 


L 6 
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CZRIHD.P12 01-MAR-79 09:10 111 BCTA LEGAL REGISTER RESPONSE TEST SEQ 0076 


3571 


on 


CZRJHDO,RPOG/5/6 DSKLS Cra 
01-MAR-79 09:10 


CZRJHD.P12 


024340 


024356 
024364 
024370 
024374 
024400 
024406 


024410 
024414 


024420 
024426 
024430 


000004 


012777 
012706 
013702 
010237 
012737 
005012 


112712 
011237 


023737 
001401 
104044 


000001 
000012 
000040 


001000 
014750 


045662 
000377 


000377 
001126 


001126 


MACY11 30A(1052) 
111 


001124 


001124 


-REM % 

THE FOLLOWING 6 TESTS WILL TEST THE BYTE LOGIC FOR THE RH11 REGISTERS 

NO ATTEMPT IS MADE TO DETERMINE IF ALL POSSIBLE DATA PATTERNS CAN BE 
LOADED, ONLY THAT THE RH11 HARDWARE WILL ALLOW THE PROGRAM TO SELECTIVLY 


A 6 
24-MAY-79 15:07 PAGE 79 
BCTA LEGAL REGISTER RESPONSE TEST 


MANIPULATE BYTES USING THE FOLLOWING COMMANDS: 


sy eteeererarereertrrereetrrrrereteeetteeeneeeKKeKeeeneeeReAeeeees 


1). MOVE BYTE BOTH TO AND FROM THE WORD COUNT REGISTER 
2). BIT SET INTO THE WORD COUNT REGISTER. 
3). BIT CLEAR INTO THE WORD COUNT REGISTER. 


s*TEST 12 


ppeerererereeeeeererreeeeteererereeerereneeeKereneReeeeeeeeeAeees 


TST12: 


L02: 
102: 


SCOPE 


BCTA MOVB LO BYTE TO wC 


#1,STIMES 
#TTNO,a#TSTNM 
#CLR,@RHCS2 
#STACK,SP 
RHWC ,R2 
R2,REGADR 
#377,$GDDAT 
(R2) 


#377,(R2) 
(R2), $BDDAT 


SBDDAT,S$GDDAT 
TST13 
au 


3;D0 1 ITERATION 
; THIS SAVES TEST NUMBER 
;CLEAR RH11 CONTROLLER 


;SET STACK POINTER. 


;R2=RH11 WC ADDRESS. 
REGISTER ADDRESS TO REGADR FOR TYPING. 


; $GDDAT=S/B. 


CLEAR RH11 WC. 


;SET wC TO LO BYTE. 
;$BDDAT=ACTUAL WAS 


;COMPARE RESULTS 


NEXT TEST 


SEQ 0077 


on 


CZRIHDO,RPO4/5/6 DSKLS CTRLR2 
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CZRJHD.P12 


3 


seseseseeyy 


OOOnNOUS WHO 


024432 


024450 
024456 
024462 
Oacere 
024500 
024502 
024504 
024510 
024512 
024516 


024524 
024526 


000004 


012777 
012706 
013702 
012737 
005012 
005202 
112712 
005302 
011237 
023737 


001401 
104044 


000001 
000013 
000040 
001000 
014750 


045662 
177400 


000377 


001126 
001126 


MACY11 


001124 


001124 


30A(1052) 
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BCTA MOVB LO BYTE TO wC 


ps, eteeeererererererererererererererereeeteeerenetenereeeeereeeeee 


SeTEST 13 


TS113: 


L03: 


103: 


BCTA MOVB HI BYTE TO WC 


sp eteeeerrererrerrrerererererereeeeereeeeeeeeeaeeeeeeeeeeeeeereee 


#1, STIMES 
#TTNO,@#TSTNA 
#CLR,@RHCS2 
STACK ,SP 
RHWC ,R2 
R2,REGADR 
#177400,$GDDAT 
(R2) 

R2 

#377,(R2) 

R2 

(R2), $BDDAT 
SBDDAT ,$GDDAT 
TST14 

44 


;;00 1 ITERATION 

CLEAR RMIT CONTROLLER. 

;SET STACK POINTER. 

;R2=RH11 WC HI BYTE ADDRESS. 
;SGDDAT=S/B. 

:CLEAR RH11 WC. 

;R2=H] BYTE ADDRESS. 

;SET WC HI BYTE. 

:R2=FULL WORD ADDRESS. 

; SBDDAT=ACTUAL. 


; COMPARE RESULTS. 
NEXT TEST 


SEQ 0078 


Sh ae Sat * DSKLS CTRLR2 


D.P 


024530 
024532 
024540 
024546 


024554 
024560 
024564 
024570 
024576 


024600 
024604 


024610 
024614 


024622 
024624 


000004 


012777 
012706 
013702 
010237 
012737 
005012 


012712 
152712 


011237 
023737 


001401 
104045 


01-MAR-79 09:10 


000001 
000014 
000040 
001000 
014750 


045662 
000377 


000252 
000125 


001126 
001126 


MACY11 


001124 


001124 


30A(1052) 
113 
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BCTA MOVB HI BYTE TO wC 


SEQ 0079 


*s@eeeeetereeeerereeerereereretereeterereeeerenerereeteeeeeeeeene 


s*TEST 14 


TST14: 


L04: 


104: 


BCTA BISB LO BYTE TO we 


pp, etteeereeeerererrrrerereereeeeereereeeReeeeeeAeeeeeeeeenererene 


#1,STIMES 
#TTNO,@#TSTNM 
#CLR,@RHCS2 
WSTACK,SP 
RHWC ,R2 
R2,REGADR 
#377, $GDDAT 
(R2) 


#252, (R2) 
#125, (R2) 


(R2) ,$BDDAT 
SBDDAT ,$GDDAT 
sb ae 

45 


3:00 1 ITERATION 

;THIS SAVES TEST NUMBER 
;CLEAR RH11 CONTROLLER 
:SET STACK POINTER. 
;R2=RH11 WC ADDRESS 
;$GDDAT=S/B. 

;CLEAR RH11 WC. 


;SET UP WC 
;D0 A BISB 


; SBDDAT=WAS. 


; COMPARE RESULTS 
NEXT TEST 


On 
~e 


. Ff 
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CZRJHD.P12 01-MAR-79 09:10 BCTA BISB LO BYTE TO wC SEQ 0080 
5666 
3667 ppeeeeereceerereereceeretererrreerererrreeeeeeeeeeeeteReeeeeteeee 
3668 s*TEST 15 BCTA BISB HI-BYTE TO wC 
3669 speeeeeeeerererereeereeeretertererereerereeereeeeeeeenereeeeeeee 
3670 024626 000004 TST15: SCOPE 
3671 024630 012737 000001 001212 MOV #1,STIMES 3;00 1 ITERATION 
3672 024636 012737 000015 017330 MOV WTTINO,Q#TSTNM ; THIS SAVES TEST NUMBER 
gh 024644 012777 000040 170102 MOV #CLR,@RHCS2 ;CLEAR RH11 CONTROLLER 
oats 024652 012706 001000 MOV #STACK,SP ;SET STACK POINTER. 
3677 024656 013702 014750 MOV RHWC ,R2 ;R2=RH11 WC ADDRESS. 
3678 024662 010237 045662 MOV R2,REGADR 
st 44 024666 012737 177400 001124 MOV #177400,$GDDAT ;$GDDAT=S/B. 
4 024674 005012 L05: CLR (R2) ;CLEAR RH11 WC. 
ar 024676 005202 INC Re ;R2 =H1 BYTE. 
3685 024700 112712 000125 MOVB #125, (R2) ;SE1 UP RH11 wC. 
rey] 024704 152712 000252 105: BISB #252,(R2) :D00 A BISB. 
ots] 024710 005302 DEC R2 ;R2=FULL WORD ADDRESS. 
oy 024712 011237 001126 MOV (R2),$BDDAT :$BDDAT=WAS. 
3692 024716 023737 001126 001124 CMP $SBDDAT ,SGDDAT ;COMPARE RESULTS. 
3693 024724 001401 BEQ TST16 sNEXT TEST 
sone 024726 104045 ERROR 45 


CZRJHDO ,RPO4/5/6 DSKLS CTRLR2 
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024730 
024732 
024740 
024746 
024754 
024760 
024764 
024770 
024776 
025000 
025004 
025010 
025014 


025022 
025024 


000004 


012777 
012706 
013702 
012737 
005012 
012712 
142712 
011237 
023737 


001401 
104046 


000001 
000016 
000040 
001000 
014750 


045662 
000252 


000377 
000125 
001126 
001126 


MACY11 


001124 


001124 
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115 BCTA BISB HI-BYTE TO wC SEQ 0081 Ci 


*:@@ekeeereereeetereterereeerereeeeeeeererereeeeteteeeteteeeeerererere 


S#TEST 16 BCTA BICB LO-BYTE TO we 


*s@@eeketereeeererereerereteerereeerereereeeeeteeeeteeeteteeeeeese 


TST16: SCOPE 
MOV 


#1, STIMES :;00 1 ITERATION 
MOV #TTNO,@#TSTINM = THIS SAVES TEST NUMBER 
MOV #CLR,@RHCS2 “CLEAR RH11 CONTROLLER 
MOV WSTACK,SP :SET STACK POINTER. 
MOV RHWC,R2 :R2=RH11 WC ADDRESS. 
MOV R2,REGADR 
MOV #252, $GDDAT : $GDDAT=S/B. 
L06: CLR (R2) sCLEAR RH11 WC. 
MOV #377, (R2) :SET wC=0000377 
106: BICB #125,(R2) :00 A BICB 
MOV (R2), $BDDAT :$BDDAT=WAS. 
CMP SBDDAT,$GDDAT ; COMPARE RESULTS. 
BEQ TST17 “NEXT TEST 
ERROR 46 


Ff 
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CZRIHD.P12 01-MAR-79 09:10 BCTA BICB LO-BYTE TO wC SEQ 0082 C 
3725 
3726 pp eteeererereerererereererrereeerrrtrerereeeeeeeeneneeeeeeeeeees 
3727 s*TEST 17 BCTA BICB HI- BYTE TO wC 
3728 sp etteeerrerrererererrrrrrereterrrerrrereAreeeReeeeeeeerererereeess 
3729 025026 000004 TST17: SCOPE 
3730 025030 012737 000001 001212 MOV #1,STIMES 3;D0 1 ITERATION 
3731 025036 012737 000017 017330 MOV #TINO,Q@#TSTINM ;THIS SAVES TEST NUMBER 
gree 025044 012777 000040 167702 MOV #CLR,@RHCS2 ;CLEAR RH11 CONTROLLER 
gies 025052 012706 001000 MOV WSTACK,SP ;SET STACK POINTER. 
3736 025056 013702 014750 MOV RHWC ,R2 ;R2=RH11 WC ADDRESS. 
3737 025062 010237 045662 MOV R2,REGADR 
He 025066 012737 125000 001124 MOV #125000,$GDDAT ;$GDDAT=S/B. 
are0 025074 005012 L07: CLR (R2) sCLEAR RH11 WC. 
areg 025076 005202 INC R2 pR2=H1] BYTE. 
3744 025100 112712 000377 MOVB #377, (R2) sSET wC=177400 
sree 025104 142712 000125 107: BICB #125, (R2) 700 A BICB 
Seek 025110 005302 DEC R2 ;R2=FULL WORD. 
tied 025112 011237 001126 MOV (R2),$BDDAT :SBDDAT=WAS. 
3751 025116 023737 001126 001124 CMP $SBDDAT,SGDDAT ;COMPARE RESULTS. 
3752 025124 001401 BEQ TS120 sNEXT TEST 
fer 025126 104046 ERROR 46 
4 


CZRJHDO, RP04/5/6 DSKLS Phy 
01-MAR-79 09:10 


CZRJND.P12 


025130 
025132 
025140 
025146 


025154 
025160 
025162 
025166 


025170 


025210 


025214 
025222 


025230 
025234 
025236 
025242 
025244 


025246 


000004 


012777 
005737 


000402 
013702 


005037 


013737 
012737 


012706 
005712 
062702 
005712 
104047 


013737 


000001 001212 
000020 017330 
000040 167600 
017334 


015016 


015010 


001124 


000004 001176 
025246 000004 


001000 


000024 


001176 000004 


MACY11 30A(1052) 
117 


F 7 
24-MAY-79 15:07 PAGE &5 


BCTA BICB HI- BYTE TO wC SEQ 0083 


.REM i 

THIS TEST ATTEMPT TO ACCESS AN ILLEGAL REGISTER WITHIN THE RANGE 

OF ADDRESSES SELECTED BY THE XOR'S. THE RH11 ADDRESS DECODE LOGIC WILL ALLOW UP TO 32 
CONTIGUOUS REGISTERS TO EX!ST, IN OUR CONFIGURATION ONLY 16 WILL REALLY 

EXIST, THIS TEST ATTEMPTS TO ACCESS THE 20(8) REGISTER - IF IT RESPONDS 

THE TEST WILL TYPE OUT AN ERROR. 


FOR THE CASE OF THE RH70, THE CONFIGURATION ALLOWS 18 OR 32 REGISTERS, SO 
WE WILL ATTEMPT TO ADDRESS REGISTER 23(8), 33(8) OR AS BEFORE THE LAST 


sain” 2 


2 seeeeeeerereeeeeeeererrteeetrrereereReeeKaeeekeReeeeeeeeAee eee 


BCTA ILLEGAL REGISTER TEST 


*M#eReeeeeeeeteeeeetereteeeeterereTeRereeeeeeeteaeteeeeteeKreeeees 


T*TEST 20 
18120: 


010: 


#1,$TIMES 
#TTNO,Q#TSTNM 
#CLR,@RHCS2 
aaRH70 

1$ 


RHCS3,R2 
2$ 


RHEC2,R2 
#2,R2 
R2,REGADR 
SBDDAT 
$GDDAT 


a#T1MOT,$TMPO 
#010,a#TIMOT 


#STACK,SP 
(R2) 

#24 ,R2 
(R2) 

47 


$TMPO,a#T1MOT 


3;00 1 ITERATION 
; THIS SAVES TEST NUMBER 
;CLEAR RH11 CONTROLLER 


:;CHECK TO SEE IF RUNNING WITH RH70 
;1F NOT...SKIP NEXT & DO FOLLOWING 
;R2 = LAST LEGAL RH70 REG ADDRESS 

SKIP NEXT 


;R2 = LAST LEGAL RH11 REG ADDRESS. 
;R2 = FIRST ILLEGAL ADDRESS. 


sSBDDAT=WAS. 
s$GDDAT=S/B. 


SAVE TIMEOUT VECTOR. 
;SET TIMEOUT VECTOR TO 010. 


7SET THE STACK POINTER. 
; TEST ADDRESS. 


THIS MIGHT BE THE CASE OF 32 REGISTERS 
TEST 17 AGAIN 


sRESTORE TIMEOUT VECTOR. 





CZRJHDO ,RPO4/5/6 DSKLS CTRLRZ 


CZRIHD.P12 


025254 
025256 
025264 
025272 


025300 
025306 


025310 


025316 
025320 


025324 
025324 
025330 


025406 
025406 
025412 


025470 
025470 
025474 
025550 
025550 
025554 
025630 
025630 


025634 
025640 


025644: 


025650 
025652 
025654 


01-MAR-79 09:1 


001002 
000137 


104401 
000426 


194401 
000426 


104401 
000425 


104401 
000425 


012706 


013702 
010237 


013700 
005001 
006000 
103425 


000001 
000021 
000040 
015136 


001100 


025732 


025332 


025414 


025476 


025556 


001000 


014754 
045662 


015136 


G 7 
MACY11 —— 24-MAY-79 15:07 PAGE 8&6 


001212 
017330 
167454 


000377 


000000 


BCTA ILLEGAL REGISTER TESI 
“NOW WE ATTACK BICB 


-REM 4 
THE FOLLOWING TWO TESTS DETERMINE IF ALL NON DRIVES SET THE 
NED BIT AND THAT ALL EXISTING DRIVES CLEAR THE NED BIT 

THE TESTS LOOK AT TOTALAT TO DETERMINE WHICH DRIVES EXIST AND TEST THAT 
THESE DRIVES WILL CLEAR THE NED BIT. AND ALSO THAT NON EXISTANT DRIVES 
WiLL SET THE NED Bl 

ON FIRST PASS ONLY, IF ALL DRIVES ARE ON LINE A MESSAGE WILL SO ADVISE THE 
_—e THE TEST WILL CONTINUE REGARLESS OF THE OPERATORS ACTION. 


pp eeeererrererrerereretrereeeereeterereeeeereneteeeeeeeeeeeeAeeese 


s*TEST 21 BCTB (NED) NON-EXISTANT DRIVE TEST. (SET) 


*e#eeeeeeereeeetereeeeeeeeeeeeeereeeeereteneteaenenaneeeekeeeeeeeeee 


1§121: SCOPE 


MOV #1,STIMES 3:00 1 ITERATION 
MOV #TTNO,a¢TSTNM sTHIS SAVES TEST NUMBER 
MOV #CLR,A@RHCS2 sCLEAR RH11 CONTROLLER 
CMPB Q#TOTALAT #377 ;ARE ALL — ON LINE. 
BNE ull ;NO GO RUN THE TEST 
CMP SPASS,#0 :1F PASS #0 THEN TYPE MESSAGE 
sADVISING OPERATOR 
sts >THAT THIS TEST WILL NOT BE RUN 
BNE Y11 
JMP x11 
WUE: 
TYPE 65% fbb ASC1Z STRING 
BR 64% ;GET OVER THE ASCI2Z 
ies eASCIZ = <15><12>/ALL DRIVES APPEAR TO BE ON LINE THEREFORE/ 
64%: 
TYPE +t ii TYPE ASCIZ STRING 


BR 66$ GET OVER THE ASCIZ 
33678: .ASCIZ <15><12>/THE NED NON-EXISTANT DRIVE TEST CANNOT BE/ 


66$: 
TYPE 69% qty ASCIZ STRING 
BR 68% ;GET OVER THE ASCIZ 
33609$: .ASCIZ <15><12>/RUN. TO RUN THIS TEST TAKE ONE OR MORE/ 


68$: 
TYPE ,11$ tht ASCIZ STRING 
BR 70$ sGET OVER THE ASCIZ 
3;71$: .ASCIZ <15><12>/DRIVES OFF-LINE AND RESTART THE PROGRAM/ 


708: 
Ull: MOV @STACK,SP sSET STACK POINTER. 
MOV RHCS2.R2 sR2=RH11 RHCS2 ADDRESS. 
MOV R2,REGADR 
MOV a#TOTALAT,RO 
CLR R1 
Sil: ROR RO 
BCS N11 


on 


CZRIHDO,RPO4/5/6 DSKLS CTRLR2 
01-MAR-79 09:10 


CZRIHD.P12 


025656 
025662 


025670 
025674 
025676 


025702 
025706 


025714 
025722 


025724 
025726 
025732 
025732 
025734 


025736 


010137 
052737 


013705 
010112 
011537 


011237 
042737 


023737 
001005 


005201 
020127 


001402 
000746 


104050 


001124 
010000 


014756 


001176 


001126 
167770 


001126 


000010 


MACY11 30A(1052) 
121 


001124 


001126 
001124 


R11: 


LVi: 


N11: 
M11: 


Ell: 


H 7 
24-MAY-79 15:07 PAGE 


&7 
BCTB (NED) NON-EXISTANT DRIVE TEST. (SET) SEQ 0085 
MOV R1, SGDDAT ;SGDDAT=S/B. 
BIS #NED ,SGDDAT 
MOV RHCS1,R5 ;ADDRESS OF A DEVICE REGISTER. 
MOV R1,(R2) ;LOAD A NCN-EXISTANT DRIVE. 
MOV (RS), STMPO ATTEMPT TO READ FROM DEVICE REGISTER. 
MOV (R2) ,SBDDAT ; SBDDAT=WAS. 
BIC #*°C<NED!US4!US2!US1>,$BDDAT; SBDDAT=SAVED DATA. 
CMP SBDDAT,SGDDAT ; COMPARE RESULTS. 
BNE E11 
INC R1 
CMP R1,#8. TESTED ALL DRIVES YET. 
BEQ TST22 NEXT TEST 
BR $11 
ERROR 50 


aon 
Memes 


CZRIHDO ,RPO4/5/6 DSKLS CTRLR2 
01-MAR-79 09:10 


CZRIHD.P12 


025740 


025756 
025764 
025770 


026010 
026012 
026016 
026022 
026024 


026030 
026034 


026042 
026050 


026052 
026054 
026060 


026062 
026004 


000004 
0 


012777 
012706 
013702 


006000 
103020 


010137 
013705 
010112 
011537 


011237 
042757 


023737 
001005 


005201 
020127 
001402 


000751 
104050 


000001 
000022 
000040 
001000 
014754 


045662 
015136 


001124 
014756 


001176 


001126 
167770 


001126 


000010 


MACY11 


001212 
017330 
166770 


001126 
001124 


2 
30A(1052) 24-MAY-79 15:07 PAGE 8&8 
121 BCTB (NED) NON-EXISTANT DRIVE TEST. (SET) SEQ 0086 


pp eteerererrererrererererereerrererererererenerenereneeeeeeeRereese 


SeTEST 22 BCTB (NED) NON-EXISTANT DRIVE TEST. (CLEARED) 


, ;eeeererererererererrerereeererererererererererererneeenenereerse 


TST22: SCOPE 





MOV #1, STIMES ;;D0 1 ITERATION 

MOV WTTNO,@#TSTINM = ; THIS SAVES TEST NUMBER 
MOV #CLR,@RHCS2 7CLEAR RH11 CONTROLLER 
MOV WSTACK,SP SET STACK POINTER. 

MOV RHCS2,R2 ;R2=RH11 RHCS2 ADDRESS. 


MOV R2,REGADR 
MOV ern one 


$12: ROR RO 
BCC N12 
MOV R1,$GDDAT 
MOV RHCS1,R5 sADDRESS OF A DEVICE REGISTER. 
tes MOV R1,(R2) :SELECT UNIT. 
MOV (R5),STMPO sATTEMPT TO READ FROM DEVICE. 
MOV (R2) ,$BDDAT s$BODAT=WAS. 
BIC #*C<NED!US4'US2!US1>,$BDDAT :$BDDAT=SAVED DATA. 
CMP SBDDAT,SGDDAT ; COMPARE RESULTS. 
BNE E12 
Ni2: INC R1 
CMP R1,#8. sTESTED ALL DRIVES. 
BEQ TS1T23 sNEXT TEST 


BR $12 
El2: ERROR 50 


CZRIHDO,RPOS/5/6 DSKLS CTRLR2 


CZRIJHD.P12 


026066 
026070 
026076 
026104 
026112 


026116 
026122 


026130 
026134 
026140 
026144 
026150 
026152 
026156 


026162 
026166 


026174 
026202 
026204 


Q01-MAR-79 09:10 


000004 


012777 
012706 


013702 
012737 


013705 
012712 
013702 
011237 
005012 
013702 
010237 


011237 
042737 


023737 
001401 
104051 


000001 
000023 
000040 
001000 


014754 
000007 


014756 
000007 
014774 
001176 
014754 
045662 


001126 
167770 


001126 


J 
MACY11 a 24-MAY-79 15:07 


001212 
017330 
166642 


001124 


001126 
001124 





PAGE &9 
BCTB (NED) NON-EXISTANT DRIVE TEST. (CLEARED) SEQ 0087 


-REM io 
TEST TO SEE IF WE CAN READ FROM THE “‘AS’’ REGISTER AND NOT CAUSE 
A NED — DRIVE ERROR 


ppeteeeerrerrerererereererererererrtereeeAAeReKeRaeeeenaRaeeeeees 


s*TEST 23 BCTB AS REGISTER TEST 


*w#eeaeeererereeeererenerteeeeeeereteterereeneteteetereeneterenenee 


1$123: SCOPE 


MOV #1,STIMES ;;D0 1 ITERATION 

MOV MTTINO,@#TSTINM 8 ;THIS SAVES TEST NUMBER 

MOV #CLR,A@RHCS2 7CLEAR RH11 CONTROLLER 

MOV #STACK,SP ;SET STACK POINTER. 

MOV RHCS2,R2 ;R2=RH11 CS2 ADDRESS. 

MOV #US4'US2'US1,$GDDAT; SGDDAT=S/B. 

MOV RHCS1,R5 ADDRESS OF A DEVICE REGISTER. 
L13: MOV #US4!US2!US1,(R2);LOAD A NON-EXISTANT DEVICE. 

MOV RHAS ,R2 pR2= "AS". 

MOV (R2),$TMPO ;ATTEMPT TO READ FROM DEVICE AS. 

CLR (R2) ;CLEAR AS REGISTER. 

MOV RHCS2,R2 ;R2=RH11 CS2 ADDRESS. 

MOV R2,REGADR 

MOV (R2) ,SBDDAT ; $BDDAT=WAS. 

BIC #°C<NED!US4!US2!US1>,$BDDAT; SAVE NED AND DEVICE SELECTED. 

CMP SBDDAT , SGDDAT : COMPARE RESULTS. 

BEQ TST24 NEXT TEST 

ERROR 51 ; 


on 


mm 


CZRIHOO ,RPOG/5/6 DSKLS cme 
CZRJHD.P12 


026224 
026232 
026236 
026242 
026246 
026252 


026256 
026262 


026266 
026274 
026276 


026300 


026364 


01-MAR-79 


000004 


012777 
012706 
013702 
010237 
012705 
012537 


013712 
011237 


023737 


001401 - 


104052 


005715 
001363 


09:10 


000001 
000024 
000040 
001000 
014752 
045662 
026306 
001124 


001124 
001126 


001126 


MACY11 30A(1052) 
123 


001124 


24-MAY-79 


BCTB AS REGISTER TEST 


a, 
15:07 PAGE 90 


SEQ 0088 


.REM i 
THE NEXT THREE TESTS WILL TEST THE BUS ADDRESS REGISTER IN BOTH WORD 
Pe MODE. 


THE PATTERNS ARE CHOSEN TO PICK UP ANY DROPPED OR STUCK 


speeteeeerrrererereereererererereteretrrreerereeeeAeKeKeeeeeeKeees 


s*TEST 24 


TST24: 


L14: 
114: 


N14: 


LSTI4A: 


SCOPE 


0 
00000 


~N 
~N 
~ 
o 


SN 

SANS 
A_NNN 
YVOnmw 
oonws 


BCTC BUS ADDRESS REGISTER 


sp eeterereerrrerererererereererererrererAeeeKeRereeeeeeeReeeetee es 


#1, STIMES 
#TTNO,Qa#TSTNM 
#CLR,@RHCS2 
WSTACK,SP 
RHBA ,R2 
R2,REGADR 
MLSTIGA,RS 
(R5)+,$GDDAT 


SGDDAT, (R2) 
(R2),$BDDAT 


SBDDAT , SGDDAT 
N14 

52 

(R5) 


L14 
TST25 


;;D0 1 ITERATION 

; THIS SAVES TEST NUMBER 
;CLEAR RH11 CONTROLLER 
;SET STACK POINTER. 
;R2=RH11 BA ADDRESS. 
;R5=TEST LIST ADDRESS. 
; $GDDAT=S/B. 


;SET BUS ADDRESS REGISTER. 
;READ BUS ADDRESS REGISTER. 


;COMPARE RESULTS. 
;GET NEXT TEST DATA. 
+l END OF LIST 
ZNEXT TEST 


on 


i. #¢ 
CZRJHDO ,RP04/5/6 DSKLS ps MACY11 30A(1052) 24-MAY-79 15:07 PAGE 91 
CZRIHD.P12 01-MAR-79 09:10 124 BCTC BUS ADDRESS REGISTER SEQ 0089 


4016 026366 176776 176776 
4017 026370 175776 175776 
4018 026372 173776 173776 
4019 026374 167776 167776 
4020 026376 157776 157776 
4021 026400 137776 137776 
4022 026402 077776 077776 
4023 026404 000000 0 


a 7 
CZRJHDO,RPO4/5/6 DSKLS CTRLR2 = MACYI1 — 24-MAY-79 15:07 PAGE 92 C 


CZRJHD.P12 01-MAR-79 09:10 24 BCTC BUS ADDRESS REGISTER SEQ 0090 ¢ 
4025 
4026 sp eeteeereeeeererrerrerererrereeertererereeeeeKerereKeeeeReeeeeeee 
4027 *TEST 25 BCTC BUS ADDRESS REGISTER LO-BYTE 
4028 pp eeeeereeerereerererereerrrerererereereeeeeeeraeereReeeereeeteee 
4029 026406 000004 TST25: SCOPE 
4030 026410 012737 000001 001212 MOV #1,STIMES :;D0 1 ITERATION 
4031 026416 012737 000025 017330 MOV #TINO,@#TSTNM ;THIS SAVES TEST NUMBER 
mrt] 026424 012777 000040 166322 MOV #CLR,@RHCS2 CLEAR RH11 CONTROLLER 
ry te 026432 012706 001000 MOV #STACK,SP RESET STACK. 
4036 026436 013702 014752 MOV RHBA,R2 :R2=RH11 BA ADDRESS. 
4037 026442 010237 045662 MOV R2,REGADR 
rtd 026446 012705 026510 MOV #LSTISA,RS :R5S=TEST LIST ADDRESS. 
—e 026452 005012 L15: CLR (R2) ;CLEAR RH11 BA REGISTER. 
rem 026454 012537 001124 MOV (R5)+,$GDDAT :$GDDAT=S/B. 
4044 026460 113712 001124 115: MOVB $GDDAT, (R2) :SET BUS ADDRESS REGISTER. 
a 026464 011237 001126 MOV (R2),SBDDAT READ BUS ADDRESS REGISTER. 
4047 026470 023737 001126 001124 CMP SBDDAT,,SGDDAT  ;COMPARE RESULTS. 
= 026476 001401 BEQ R15 ‘ 
“O50 026500 104053 ERROR 53 
4052 026502 005715 R15: TST (R5) sAT END OF TEST LIST. 
4053 026504 001362 BNE L15 7NO! 
4054 026506 000417 BR TS126 NEXT TEST 
ry oH THIS LIST WILL BE USED TO LOAD THE LOWER BYTE OF THE BA REGISTER. 
4057 026510 000002 LSTISA: 2 
4058 026512 000004 4 
4059 026514 000010 10 
4060 026516 000020 20 
4061 026520 000040 40 
4062 026522 000100 100 
4063 026524 000200 200 
4064 026526 000376 376 
4065 026530 000372 372 
4066 026532 000366 366 
4067 026534 000356 356 
4068 026536 000336 336 
4069 026540 000276 276 
4070 026542 000176 176 


4071 026544 000000 























CZRJHD.P12 


026546 


026572 
026576 
026606 
026612 
026614 
026620 
026622 
026626 


026630 
026634 


026640 
026646 


026650 
026652 


026654 
026656 


026660 
026662 


026716 


000004 


012777 
012706 
013702 
012705 
005012 
012537 
005202 
113712 
005302 


011237 
000337 


023737 
001401 


104053 
005715 


001356 
000420 


000002 


000000 


CZRJHDO,RPO4/5/6 DSKLS CTRLR2 MACYI1 
01-MAR-79 09:10 


000001 001212 
000026 017330 
000040 166162 
001000 
014752 


045662 
026660 


001124 
001124 


001126 
001124 


001126 001124 


Nn 7 
— 24-MAY-79 15:07 PAGE 93 


BCTC BUS ADDRESS REGISTER LO-BYTE 


pp eeeeeererrereercereecererreererereeereeeeceeteeeeeeeeeteeeeeres 
s*TEST 26 BCTC BUS ADDRESS REGISTER HI-BYTE 
ppeeerererereerererrerererrrererereretrereteereeeeeeeeeeereereee 
TST26: SCOPE 

MOV #1,STIMES 3:00 1 ITERATION 

MOV #TTINO,@#TSTNM 8 ;THIS SAVES TEST NUMBER 

MOV #CLR,@RHCS2 ;CLEAR RHI1 CONTROLLER 


MOV #STACK SP ;RESET STACK. 
MOV RHBA ,R2 ;R2=RH11 BA ADDRESS. 


MOV R2,REGADR 
MOV #LSTI6OA,R5 ;RS=TEST LIST ADDRESS. 


L16: CLR (R2) ;CLEAR BA REGISTER. 
MOV (R5)+,$GDDAT ;SGDDAT=S/B. 
INC R2 :R2=HI BYTE ADDRESS. , 

116: MOVB SGDDAT, (R2) ;SET BUS ADDRESS REGISTER HI-BYTE. 
DEC R2 ;R2=FULL WORD ADDRESS. 


MOV (R2) , SBDDAT ;READ BUS ADDRESS. 
SWAB $GDDAT ;ADJUST DATA FOR HI BYTE. 


CMP SBDDAT,$GDDAT ;COMPARE RESULTS. 
R16 ; OKAY 


ERROR 53 


R16: TST (R5) ;AT END OF TEST LIST. 
BNE L16 ;NOPE 
NEXT TEST 


BR TS127 : 
:THIS LIST WILL BE USED TO LOAD THE UPPER BYTE OF THE BA REGISTER. 
LSTI6A: 2 
























4135 026720 


4138 026756 
4140 026744 
4142 026750 


4145 026764 


4147 026770 
4148 026776 


4150 027004 
4151 027010 
4152 027012 
4153 027014 
4155 027020 


027022 





CZRIHDO,RPO4/5/6 DSKLS CTRLR2 
CZRJHD.P12 01-MAR-79 09:10 


000004 


012777 
012706 
013702 


005037 


017737 
012777 


052712 
000240 
000240 
011237 
104054 


013777 





000001 
000027 
000040 
001000 
014756 
045662 
001126 
001124 


165750 
027022 
000100 


001124 


001176 


MACY11 30A(1052) 
126 


24-BAY-79 


8 8 
15:07 PAGE 94 
BCTC BUS ADDRESS REGISTER HI-BYTE 


.REM z 
THIS TEST CAUSE AN RH1i INTERRUPT VIA THE SPECIAL COMMAND SEQUENCE 


H BIS 


WIE ,ARHCS2. 


—Sr PROPERLY 


THIS TEST PROVES ONLY THAT THE HARDWARE CAN HANDLE 


SperteereererrerererrrrererereeerereeeeneneneeeeeeReeeeeeeererA ee 


RH11 INTERRUPT TEST 


s*TEST 27 


jteanrere eerertigrerrerreterererrerecerereeeererereeeeeerereteeeeeeeee 


ti127: 


001176 
165740 


L21: 


165714 021: 


SCOPE 
mov 
MOV 
MOV 


MOV 


W1,STIMES 
#TTNO,aaTSTNM 
#CLR,@RHCS2 
MSTACK,SP 
RHCS1,R2 
R2,REGADR 
SBDDAT 

SGDDAT 


ORPVEC ,STMPO 
#021,aRPVEC 


WIE, (R2) 


(R2) ,SGDDAT 
54 
STMPO,ARPVEC 


;;D0 1 ITERATION 

; THIS SAVES TEST NUMBER 
;CLEAR RH11 CONTROLLER 
;SET STACK POINTER. 
;R2=RH11 ADDRESS. 


; SBODAT=WAS. 
;$GDDAT=S/B. 


SAVE RH11 INTERRUPT VECTOR. 
;SET RH11 INTERRUPT VECTOR TO O21. 


;CAUSE INTERRUPT. 
WAIT FOR INTERRUPT. 


SAVE CONTENTS OF REGISTER. 


;RESTORE RH11 INTERRUPT VECTOR. 





on 


CZRJIHDO,RPO4/5/6 DSKLS CTRLR2 
CZRJHD.P12 


027046 


027054 
027060 
027064 


027070 
027074 
027100 


027102 
027106 


027114 
027122 
027124 


oo ooo SsOoOoOo ocOoO°oSo 
o—— o—— _—— OC 
mw— ONM VOW MMmVe 


-— 


O01-MAR-79 09:10 


000001 
000030 
000040 


014756 
045662 
001124 
001000 
002000 
001126 
177677 


001126 


MACY11 


001126 
001124 


30A(1052) 
127 


24-MAY-79 


RH11 INTERRUPT TEST 


C 8 
15:07 PAGE 95 


SEQ 0093 


TEST Twat RESET CAN GENERATE THE SIGNAL CLR L. 


THE PROGRAM SETS THE PORT SELECT BIT .THEN DOES A RESET 
i! THE SIGNAL CLR L WAS GENERATED THE PORT SELECT BIT WILL CLEAR. 


pp erereererrerrererererrerereterereerereeeKeeekeKeReeeRAeeee eee ee 


=*TEST 30 


pp eeeeererrerererererereerrereerereeeteReeKeeeeeeeReeeeAeeeeA AeA 


18130: 


L2e: 


SCOPE 
MOV 


BCTD CLR L TEST 


#1, STIMES 
#TTNO,@#TSTNM 
WCLR,A@RHCS2 


RHCS1,R2 
R2,REGADR 
$GDDAT 
WSTACK,SP 
#PSEL,(R2) 
(R2) ,SBDDAT 
#*C<1E>,$BDDAT 
SBDDAT ,SGDDAT 
TST31 

55 


3;D0 1 ITERATION 
; THIS SAVES TEST NUMBER 
CLEAR RH11 CONTROLLER 


;R2=RH11 CS1 ADDRESS 

; SGDDAT=S/B 

;SET STACK POINTER. 
;SET PORT SELECT FLOP. 
;00 A BUSA INIT. 


>; SBDDAT=WAS. 
;SAVE ONLY I.E. BIT. 


; COMPARE RESULTS. 
sNEXT TEST 


oo 


dD 8 
CZRJHDO,RPO4/5/6 DSKLS CTRLR2 MACY11 30A(1052) 24-MAY-79 15:07 PAGE 96 


CZRJHD.P12 01-MAR-79 09:10 130 BCTD CLR L TEST SEQ 0094 
4190 .REM % 
d>4 SET THE ‘ FLOP AND READ IT BACK. 
4193 ppeeeeeeeereeerererererterererrerrerereeererterereeeeeeeeeeetenee 
4194 s*TEST 31 MXF TEST 
4195 "“M@eeeeeeeeeeeereetererereeeeteeereretereeeeeeeeneeeaeeeeeneereeeerenre 
4196 027126 000004 18131: SCOPE 
4197 027130 012737 000001 001212 MOV #1, STIMES :D0 1 ITERATION 
pbs 027136 012737 000931 017330 MOV #TTNO,@a¢TSTNM “THIS SAVES TEST NUMBER 
ret :*CHECK TO SEE If PROGRAM 1S RUNNING WITH AN RH70 
6202 027144 005737 017334 TST a#RH70 TEST FOR RH70 CONTROLLER 
4203 027150 001402 BEQ 30% ‘IF FLAG = 1, SKIP THIS TEST 
4204 027152 000137 027236 JMP T8132 +o TO NEXT TEST oneeeenennnnnnnnnn-- ) 
46205 027156 308: s1F FLAG = 0, DO THIS TEST 
“gos 027156 012777 000040 165570 MOV #CLR,@RHCS2 “CLEAR RH11 CONTROLLER 
4208 027164 012706 001000 MOV STACK, SP :SET STACK POINTER. 
6209 027170 013702 014754 MOV RHCS2,R2 :R2=RH11 CS2 ADDRESS. 
4210 027174 010237 045662 MOV R2,REGADR 
rs Ht 027200 012737 001000 001124 MOV #MXF ,SGDDAT :$GDDAT=S/B. Ay 
4 
a Hh 027206 012712 001000 124: MOV WMXF ,(R2) :LOAD MXF 
4 
acts 027212 011237 001126 MOV (R2),$BDDAT :SBDDAT=WAS. 
4216 
ns Ht 027216 042737 176777 001126 BIC #°C<MXF>,$BDDAT ;SAVE ONLY MXF 
4 
46219 027224 023737 001126 001124 CMP SBDDAT,SGDDAT  ;COMPARE RESULTS 
4220 027232 001401 BEQ T8132 sNEXT TEST 
<3) 027234 104056 ERROR 56 
4 


an 


CZRIJHDO,RPO4/5/6 DSKLS CTRLR2 
01-MAR-79 09:10 


CZRJHD.P12 


027236 
027940 
027246 


027254 


027266 
027266 
027274 


027300 
027304 
027310 


027316 
027322 
027324 


027326 
027332 


027340 
027346 
027350 


005737 
001402 
000137 


012777 
012706 


013702 
010237 
012737 


013712 
000240 
000240 


011237 
042737 


023737 
001401 
104057 


000001 
000032 


017334 
027352 


000040 
001000 
014754 
045662 
020000 


001124 


001126 
157777 


001126 


E 8 
MACY11 30A(1052) 24-MAY-79 15:07 PAGE 97 
131 MXF TEST 


165460 


001124 


001126 
001124 


REM L 
SET THE UNIBUS PARITY ERROR FLOP DIRECTLY VIA A MOV #UPE TO RHCS2 
ATTEMPT 1 READ IT BACK. 


sp eeererereereerererreerererrerereererereeeeeereneeereneeeeeeeeee 


TEST 32 


‘seeker eeererertererereeerererereeeeterereeeeeeeteretereeeteneetene 


1$132: 


30$: 


30: 


CSRB UNIBUS PARITY ERROR SET TEST 

#1, STIMES ;;D0 1 ITERATION 
MTINO,Q@4TSTINM = ; THIS SAVES TEST NUMBER 
TO SEE IF PROGRAM 1S RUNNING WITH AN RH70 
— ; TEST FOR RH70 CONTROLLER 


SIF FLAG = 1, SKIP THIS TEST 

15133 “JUMP TO NEXT TEST -------------------- 
‘IF FLAG = 0, DO THIS TEST 

#CLR,@RHCS2 =CLEAR RH11 CONTROLLER 

WSTACK, SP SET STACK POINTER. 

RHCS2,R2 :R2=RHCS2 ADDRESS. 

R2, REGADR 

WUPE , SGDDAT :$GDDAT=S/B. 

SGDDAT, (R2) :ATTEMPT TO SET UPE. 

(R2), $BDDAT :$BDDAT=ACTUAL DATA. 


#*C<UPE>,S$BDDAT ;SAVE ONLY UPE. 


$BDDAT ,SGDDAT ; COMPARE RESULTS. 
a NEXT TEST 


SEQ 0095 


aon 


CZRJHDO,RPO4/5/6 DSKLS CTRLR2 MACYI1 
01-MAR-79 09:10 


CZRJHD.P12 


027352 


027370 
027376 


027402 
027406 
027412 


027416 
027422 
027424 


027426 


027432 
027436 


027444 
027452 
027454 


000004 


012777 
012706 


013702 
010237 
005037 


012712 
000240 
000240 


012712 


011237 
042737 


023737 
001401 
104057 


000001 001212 
000033 017330 
000040 165356 
001000 
014754 
045662 
001124 


020000 


000040 
001126 
157777 001126 
001126 001124 


F 8 
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132 CSRB UNIBUS PARITY ERROR SET TEST SEQ 0096 


-REM % 
SET THE UNIBUS PARITY ERROR FLOP AND ATTEMPT TO CLEAR IT WITH A 
sgeeue % CLEAR. 


*s@eeerereererrerrereeeeerererereereeerererereneeeeeeeeteeeeetetene 


TeTEST 33 CSRB UNIBUS PARITY ERROR CLEAR TEST 


‘s@wereererererrerereeeeeTererereeertererereereerereereereneeeeteeeee 


15133: SCOPE 


MOV #1, STIMES ;;00 1 ITERATION 
MOV WTINO,Q@#TSTINM = ;THIS SAVES TEST NUMBER 
MOV WCLR,@RHCS2 ;CLEAR RH11 CONTROLLER 
MOV STACK ,SP ;SET STACK POINTER. 
MOV RHCS2,R2 ;R2=RHCS2 ADDRESS. 
MOV R2,REGADR 
CLR $GDDAT ; $GDDAT=S/B. 
i31: ~~ WUPE , (R2) ;SET UNIBUS PARITY ERROR SET. 
NO 
NOP 
MOV WCLR,(R2) ;CONTROLLER CLEAR. 
MOV (R2),$BDDAT ;READ STATUS 
BIC #*C<UPE>, SBDDAT ;SAVE ERROR. 
CMP $SBDDAT,$GDDAT ; COMPARE RESULTS. 
BEQ TS134 NEXT TEST 
ERROR 57 


an 


CZRJHDO,RPO4/5/6 DSKLS CTRLR2 = MACYI1 
01-MAR-79 09:10 


CZRJHD.P12 


027456 


027474 
027502 


027506 
027512 
027516 


027522 
027526 
027530 


027532 


027536 
027542 


027550 
027556 
027560 


000004 


012777 
012706 


013702 
010237 
005037 


012712 
000240 
000240 


012712 


011237 
042737 


023737 
001401 
104060 


000001 001212 
000034 017330 
000040 165252 
001000 
014754 
045662 
001124 


000007 


000040 
001126 
177770 001126 
001126 001124 


30A(1052) 
133 


G 8 
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CSRB UNIBUS PARITY ERROR CLEAR TEST 


-REM 8 
SET THE UNIT SELECT REGISTER TO DRIVE #7 ALL BITS SET. GENERATE A 


nn CLEAR AND VERIFY THAT THE UNIT SELECT REGISTER IS CLEARED. 


3 *aeereerereeereerererereteererereerereeeeeerereereeeeeeneeeeeteeee 


TeTEST 34 


*+@@eeeerereereteeereereeeererererererekekereeeereneteeeeereneeentese 


TS134: 


CSRB UNIT SELECT CLEAR TEST 


#1, STIMES ;;00 1 ITERATION 
#TTNO,Q#TSTINM ; THIS SAVES TEST NUMBER 
#CLR,@RHCS2 ;CLEAR RH11 CONTROLLER 
WSTACK,SP SET STACK POINTER. 
RHCS2,R2 ;R2=CS2 ADDRESS. 
R2,REGADR 

SGDDAT ; SGDDAT=S/B. 


WUSG'US2'US1,(R2) ;LOAD RHCS2 DRIVE SELECT 


WCLR,(R2) ;GENERATE CLR. 


(R2) , SBDDAT ;READ RHCS2 
#*C<US4!US2!US1>,$BDDAT;SAVE DRIVE SELECT BITS. 


SBDDAT.$GDDAT ;COMPARE RESULTS.  ~— - 
18155 ZNEXT TEST 
6 


on 


CZRIHDO,RPO4/5/6 DSKLS CTRLR2 
CZRIHD.P12 


027562 
027564 
027572 


027600 


027612 
027612 
027620 


027624 
027630 


027636 


027642 
027646 


027652 
027656 


027664 
027672 
027674 


005737 
001402 
000137 
012777 
012706 


013702 
012737 


012712 


013702 
010237 


011237 
042737 


023737 
001401 
104061 


01-MAR-79 09:10 


000001 
000035 


017334 
027676 


000040 
001000 


014754 
040000 


020000 


014756 
045662 


001126 
137777 


001126 


MACYI1 


165134 


001124 


001126 
001124 


30A( 1052) 
134 


n 8 
24-MAY-79 15:07 PAGE 100 
CSRB UNIT SELECT CLEAR TEST 


SEQ 0098 


REM % 
SET THE UPE FLOP UNIBUS PARITY ERROR. VERIFY THAT THE SETTING OF (UPE) 
ALSO -s THE TRANSFER ERROR (TRE) FLOP 


*s@@ereereeeereerrrererereererereeeeeeeeeneteeeterteeeneeeeeeeeetee 


CSRB TRANSFER ERROR (TRE) - UPE 


-+-@eeeereeeretrereretereerereerererereereseteeeteteneeetetereteere 


TEST 35 


18135: SCOPE 


MOV 

MOV 

> *CHECK 

St 

BEQ 

JMP 
30$: 7 

MOV 


MOV 


L35: 


#1, STIMES 
#TTNO,@@TSTNA 


;;00 1 ITERATION 
; THIS SAVES TEST NUMBER 


TO SEE If PROGRAM IS RUNNING WITH AN RH70 


aaRu70 

30% 

1S136 
#CLR,ARHCS2 
MSTACK,SP 


RHCS2,R2 
WIRE ,SGDDAT 


#UPE ,(R2) 


RHCS1,R2 
R2,REGADR 


(R2),SBDDAT 
#*C<TRE>, SBDDAT 


$BDDAT,S$GDDAI 
18136 
61 


sTEST FOR RH70 CONTROLLER 

:1f FLAG = 1, SKIP THIS TEST 

; JUMP TO NEXT TEST ---2-ee------------- ) 
;1F FLAG = 0, DO THIS TEST 

:CLEAR RH11 CONTROLLER 

sSET STACK POINTER. 


;R2=RHCS2 ADDRESS. 
; $GDDAT=S/B. 


;SET UNIBUS PARITY ERROR. 
;R2=RHCS1 ADDRESS. 

;READ REGISTER 

; SAVE TRANSFER ERROR. 


> COMPARE RESULTS 
NEXT TEST 


1 8 
CZRJHDO,RPOG/5/6 DSKLS CTRLR2 MACY11 30A(1052) 24-MAY-79 15:07 PAGE 101 
CZRIHD.P12 01-MAR-79 09:10 135 CSRB TRANSFER ERROR (TRE) - UPE 


4367 

4368 .REM z 

rt 3 44 SET THE ws BIT NON EXISTANT DRIVE VERIFY THAT THIS SETS THE (TRE) BIT. 
6371 pp Peeeeecererreeeererrerereereerervererererereererrererereererete 
4372 s*TEST 36 CSRB TRANSFER ERROR (TRE) WED 

4373 ppeeeerercererrerereerrerererereeerrterererereeeeeereeeTereeeTeTe 
4374 027676 000004 TS136: SCOPE 

4375 027700 012737 000001 001212 MOV #1, STIMES 7;D0 1 ITERATION 

4376 027706 012737 000036 017330 MOV @TTINO,@#TSTINM 8 ;THIS SAVES TEST NUMBER 

rt if 027714 012777 000040 165032 MOV #CLR,@RHCS2 ;CLEAR RH11 CONTROLLER 

ot. 027722 012706 001000 MOV #@STACK,SP ;SET STACK POINTER. 

4381 027726 013702 014754 MOV RHCS2,R2 7R2=CS2 ADDRESS. 

oeet 027732 012737 040000 001124 MOV #TRE ,SGDDAT > SGDDAT=S/B. 

4384 027740 013700 015136 MOV @#TOTALAT,RO ;GET ALL AVAILABLE DRIVES DATA 
4385 027744 005001 CLR R1 

4386 027746 006000 $36: ROR RO 

4387 027750 103420 BCS N36 

‘ts 027752 010112 L36: MOV R1,(R2) :SET NED. 

4390 027754 013702 014756 MOV RHCS1,R2 ;R2=RHCS1 ADDRESS. 

ry +4 027760 010237 045662 MOV R2,REGADR 

4393 027764 011237 001126 MOV (R2) ,SBDDAT ;READ REGISTER. 

rt 027770 042737 137777 001126 BIC #*C<"RE>,SBDDAT ;SAVE TRE. 

4 

4396 027776 023737 001126 001124 CMP SBDDAT ,SGDDAT ;COMPARE RESULTS. 

4397 030004 001406 BEQ TS137 sNEXT TEST 

4398 030006 104062 ERROR 62 

eed 030010 000404 BR 18137 sNEXT TEST 

44 

4401 030012 005201 N36: INC R1 

4402 030014 020127 000010 CMP R1,#8. 

oes 030020 001552 BNE $36 

4404 


CZRJHDO ,RPOG/5/6 DSKLS CTRLR2 
01-MAR-79 09:10 


CZRIHD.P12 


030022 


030040 
030046 
030052 
030056 
030062 
030066 
030072 


030100 
030104 


030112 
030120 
030122 


000004 


012777 
012706 
013702 
010237 
005037 
012712 
012777 


011237 
042737 


023737 
001401 
104064 


000001 
000037 
000040 
001000 
014756 
045662 
001124 
002000 
000040 


001126 
175777 


001126 


MACY11 


164654 


001126 
001124 


J 8 
30A(1052) 24-MAY-79 15:07 PAGE 102 
136 CSRB TRANSFER ERROR (TRE) NED ‘ SEQ 0100 


-REM x 
SET THE “eee SELECT FLOP VERIFY THAT WE CAN READ IT BACK. 


*s@@@ereteeerererrereerrereeerereereeeeeeereeeteneeeeeeeteteeteeteeee 


SeTEST 37 CSRA PSEL CLEAR TEST 


sp eeeeererererererererrrrererereerereerenenaeneranenaeeeeeeeeeeee 


18137: SCOPE 


MOV #1, STIMES ;;D0 1 ITERATION 
MOV #TTNO,Q#TSTINM ;THIS SAVES TEST NUMBER 
MOV WCLR,@RHCS2 ;CLEAR RH11 CONTROLLER 
MOV #STACK ,SP SET STACK POINTER. 
MOV RHCS1,R2 ;R2=RHCS1 ADDRESS. 
MOV R2,REGADR 
CLR $GDDAT ;SGDDAT=S/B. 

L40: MOV WPSEL,(R2) ;SET P SELECT. 
MOV #CLR,@RHCS2 3D0 A CONTROLLER CLEAR. 
MOV (R2),$BDDAT ;READ BACK P SELECT BIT. 
BIC #*C<PSEL>, SBDDAT; SAVE ONLY PORT SELECT. 
CMP $SBDDAT ,$GDDAT ; COMPARE RESULTS. 
BEQ TS140 NEXT TEST 
ERROR 64 


font en 


CZRJIHDO,RPO4/5/6 DSKLS CTRLR2 
01-MAR-79 09:10 


CZRIHD.P12 


030124 


030142 
030150 
030154 
030160 
030164 
030170 
030174 


030202 
030206 


030214 
030222 
030224 


000004 


012777 
012706 
013702 
010237 
005037 
012712 
012777 


011237 
042737 


023737 
001401 
104065 


000001 
000040 
000040 
001000 
014756 
045662 
001124 
000011 
000040 


001126 
177770 


001126 


MACY11 


001212 
017330 
164604 


164552 


001126 
001124 


30A(1052) 
137 


K 8 
24-MAY-79 15:07 PAGE 103 
CSRA PSEL CLEAR TEST 


SEQ 0101 


-REM a 
VERIFY : % CONTROLLER CLEAR WILL CLEAR THE COMMAND REGISTER. 


sy eteerererereerrrrrerererererrererererereeetereeereeeeeeeeee Aes 


S#TEST 40 


1$140: 


L41: 


CSRB COMMAND REGISTER CLEAR TEST 


s;teeerererereereerererrreeererrereeerereeeeeeeeneAeeeneeeeeee eee 


#1,STIMES 
#TTNO,Q#TSTNM 
#CLR,@RHCS2 
#STACK,SP 
RHCS1,R2 
R2,REGADR 
$GDDAT 

#11, (R2) 
#CLR,@RHCS2 


(R2) ,SBDDAT 
#*C<7>,$BDDAT 


$BDDAT ,$GDDAT 
TST41 
65 


;;D0 1 ITERATION 

; THIS SAVES TEST NUMBER 
;CLEAR RH11 CONTROLLER 
;SET STACK POINTER. 
;R2=RHCS1 ADDRESS. 

; SGDDAT=S/B. 

;1SSUE A DRIVE CLR AND GO. 
;CONTROLLER CLEAR. 


READ COMMAND REGISTER. 
SAVE ONLY THE COMMAND BITS. 


; COMPARE RESULTS. 
NEXT TEST 


On 


CZRIHDO ,RPOG/5/6 DSKLS Psy 
CZRJHD.P12 10 


030226 
030230 
030236 
030244 


030252 
030256 
030262 
030266 
030272 
030300 
030304 


030310 
030314 


030322 
030330 
030332 


000004 
0 


012777 
012706 
013702 
010237 
005037 
012737 
012712 
011237 


011237 
042737 


023737 
001401 
104066 


01-MAR-79 09: 


000001 
000041 
000040 
001000 
014756 
045662 
001124 
000340 
000011 
001176 


001126 
177770 


001126 


MACY11 30A(1052) 
140 


001212 
017330 
164502 


177776 


001126 
001124 


-REM o 
THE COMMAND REGISTER 1S SUPPOSED TO BE SELF CLEARING THAT IS WHEN THE 
RH11 1S SELECTED WHEATHER OR NOT WE ADDRESS IT DIRECTLY THE LOGIC 


24-MAY-79 


t 8 
15:07 PAGE 104 


CSRB COMMAND REGISTER CLEAR TEST 


SHOULD CLEAR THE COMMAND REGISTER. 


THIS IS TESTED BY LOADING A COMMAND INTO IT READING ANOTHER REGISTER 


THAN kk teste TO CHECK THE COMMAND REGISTER TO DETERMINE IF IT CLEARED. 


pp ereereereerererererererrereeererrrrerereneneerekekeaeeneerereteAese 


s*TEST 41 


speeteeereerererererereeteeeeeerrenetrrereeRAeeeAKeeeReReeeeee eee 


TST41: 


L42: 


CSRB COMMAND REGISTER RESELECT CLEAR TEST 


#1,S71MES 
#TTNO,a#TSTNM 
#CLR,@RHCS2 
@STACK,SP 
RHCS1,R2 
R2,REGADR 
$GDDAT 
#340,PS 

#11, (R2) 
(R2),STMPO 


(R2) , SBDDAT 
#*C<7>,$BDDAT 


SBDDAT ,SGDDAT 
TST42 
66 


3;D0 1 ITERATION 

; THIS SAVES TEST NUMBER 
CLEAR RH11 CONTROLLER 
SET STACK POINTER. 
;R2=RHCS1 ADDRESS. 

; $GDDAT=S/B. 

;SET PRIORITY TO #7. 


; ISSUE A DRIVE CLR AND GO 


;D0 A RESELECT OF THE REGISTER. 


;READ THE COMMAND REGISTER. 
SAVE ONLY THE COMMAND BITS. 


; COMPARE RESULTS. 
NEXT TEST 


SEQ 0102 


Oo 


CZRIHDO ,RPO4/5/6 DSKLS CTRLR2 
01-MAR-79 09:10 


CZRIHD.P12 


030400 
030406 


030414 
030420 


030424 


030434 
030440 


030442 


052712 
000240 
000240 


011237 
104067 


013777 


000001 
000042 
000040 


014756 


001124 


164340 
030442 


001000 
177776 


000300 


001124 


001176 


MACY11 


001176 
164330 


164274 


a 8 
30A(1052) 24-MAY-79 15:07 PAGE 105 
141 CSRB COMMAND REGISTER RESELECT CLEAR TEST SEQ 0103 


»REM L 
HERE WE ans TO SEE IF SETTING (1E) AND (RDY) WILL CAUSE AN INTERRUPT. 


s*H#ereererereeerereererereeeeeeerereereeeeiananeeereakaeraerereeeeeeee e 


S*TEST 42 CSRB READY AND IE JNTERRUPT TEST 


SERRA AAA E AERA EATER AREA AAA A TEE ETAT AAAAAAAAAAAERER TARTAR EeS 


TST42: SCOPE 


MOV = s«#1,, STIMES :;D0 1 ITERATION 

MOV #TINO,@#TSTINM THIS SAVES TEST NUMBER 

MOV = ACLR,@RHCS2 =; CLEAR RH11 CONTROLLER 

MOV =—s- RHCS1,,R2 ;R2=RPCS1 ADDRESS. 

MOV —-R2,, REGADR 

CLR = SBDDAT ; SBDDAT=WAS. 

CLR = SGDDAT ; SGDDAT=S/B. 

MOV = @RPVEC,STMPO = s_; SAVE_RH11_ INTERRUPT VECTOR. 

MOV —- #043, aRPVEC SET RH11 INTERRUPT VECTOR 043 
L463: MOV = #STACK, SP ;SET STACK POINTER. 

CLR PS 

BIS MIELRDY,(R2) THIS WILL CAUSE AN INTERRUPT. 

N 

NOP 

MOV (R2) , SGDDAT 

ERROR 67 
043: MOV § $TMPO,ARPVEC =; RESTORE RH11 INTERRUPT VECTOR. 


on 


CZRJHDO,RPOG/5/6 DSKLS CTRLR2 
01-MAR-79 09:10 


CZRJHD.P12 


030450 


030474 
030500 
030504 


030510 
030516 


030524 
030530 


030534 
030540 
030542 


030544 


030546 


030552 


030560 
030566 


030570 
030572 


012706 
005037 


052712 
000240 
000240 
000411 


011237 
042737 


023737 
001401 


104070 
013777 


000001 
000043 
000040 
014756 
045662 
001124 


164230 
030546 


001000 
177776 


000100 


001126 
177677 


001126 


001176 


MACY11 


001176 
164220 


001126 
001124 


164144 


n 8 
30A(1052) 24-MAY-79 15:07 PAGE 106 
T42 . CSRB READY AND IE INTERRUPT TEST SEQ 0104 


-REM 2 
THE (IE) BIT 1S SET CAUSING AN INTERRUPT. AT THE COMPLETION OF THE INTERRUPT 
WE — SEE If THE (IE) BIT HAS CLEARED. 


sp eeererrerrretereererererenererererereeereeeeeeneeeneeeereeeee ee 


TeTEST 43 CSRB BOES IE’ CLEAR AFTER AN INTERRUPT 


sp eeeeeererererereeeeeeeerererererererereAneneneeeeAeARaeeeretese 


TST43: SCOPE 


MOV #1, STIMES 7:00 1 ITERATION 
MOV #TINO,@#TSTNM ;THIS SAVES TEST NUMBER 
MOV #CLR,a@RHCS2 :CLEAR RH11 CONTROLLER 
MOV RHCS1,R2 :R2=RPCS1 ADDRESS. 
MOV R2,REGADR 
CLR SGDDAT : SGDDAT=S/B. 
MOV @RPVEC,STMPO SAVE RH11 INTERRUPT VECTOR. 
MOV #044,aRPVEC - ;SET VECTOR TO 044. 
L44: MOV #STACK,SP sSET STACK POINTER. 
CLR PS 
ats WIE, (R2) sTHIS WILL CAUSE AN INTERRUPT 
N 
NOP 
BR E44 :NO INTERRUPT. 
044: MOV (R2), $BDDAT READ RHCS1. ‘ 
BIC #*C<IE>,$BDDAT ;SAVE ONLY THE ‘IE’ BIT. 
CMP SBDDAT,S$GDDAT  ;COMPARE RESULTS. 
BEQ R44 20K! 
E44: ERROR 70 
R44: MOV STMPO ,ARPVEC RESTORE RH11 INTERRUPT VECTOR. 


om 


8B 9 
CZRJHDO,RPO4/5/6 DSKLS CTRLR2 MACY11 30A(1052) 24-MAY-79 15:07 PAGE 107 


CZRIJHD.P12 01-MAR-79 09:10 143 CSRB BOES “1E"’ CLEAR AFTER AN INTERRUPT SEQ 0105 
4569 
4570 -REM % 
4571 HERE WE VERIFY THAT WRITING INTO THE ‘‘AS’’ REGISTER OWILL NOT CAUSE 
ret AN speett wen: 
4574 ppteereeeerereerererererereeeerrrerrrrereneeeetKeneeAeeeReReee AES 
4575 s*TEST 44 BCTB ‘'AS’’ WRITE TEST 
4576 ppteeartererrrereeereeererteerteeeeterteneKeAeeeAeeeereeeeeeee eee 
4577 030600 000004 TST44: SCOPE 
4578 030602 012737 000001 001212 MOV #1,STIMES ;00 1 ITERATION 
4579 030610 012737 600044 017330 MOV #TTNO,Q#TSTNM STHIS SAVES TEST NUMBER 
agae 030616 012777 000040 164130 MOV #CLR,@RHCS2 :CLEAR RH11 CONTROLLER 
tt 030624 012706 001000 MOV STACK ,SP SET STACK POINTER. 
4584 030630 013702 014754 MOV RHCS2,R2 R2=RH11 CS2 ADDRESS. 
tH 030634 012737 000007 001124 MOV #US4!US2!US1, ScDbAT; $GDDAT=S/B. 
+4 030642 013705 014756 MOV RHCS1,R5 ADDRESS OF A DEVICE REGISTER. 
r+ 030646 012712 000007 L45: MOV #US4!US2!'US1,(R2);LOAD A NON EXISTANT DEVICE. 
+4) 030652 013702 014774 MOV RHAS ,R2 ;R2=""AS'"’ ADDRESS. 
skas 030656 012712 000377 MOV #377,(R2) ;ATTEMPT TO LOAD ‘‘AS"’. 
+44 030662 005012 CLR (R2) CLEAR ‘“‘AS"’. 
4597 030664 013702 014754 MOV RHCS2,R2 ;R2=RH11 CS2 ADDRESS. 
+ | 030670 010237 045662 MOV R2,REGADR 
4600 030674 011237 001126 MOV (R2), SBDDAT ; SBDDAT=WAS. 
re 4 030700 042737 167770 001126 BIC #*°C<NED!US4!US2!US1>,$BDDAT; SAVE NED AND DEVICE SELECTED. 
46 
4603 030706 023737 001126 001124 CMP SBDDAT,$GDDAT  ; COMPARE RESULTS. 
4604 030714 001401 BEQ TST45 NEXT TEST 
4605 030716 104071 ERROR 71 


ocr 
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030720 


030746 
030752 


030754 


030756 
030762 


030770 
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000004 


004037 
000000 


000004 


012706 
012737 


005737 
001402 
000137 


004037 


001000 
000045 


050476 


001000 
000046 


017334 


031306 


046034 


010000 


053012 
053014 
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MACY11 erp htet 24-MAY-79 15:07 


017330 
164030 


017330 


0530 
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PAGE 108 , 
EXTENDED MEMORY, DRIVE TIMING & SECTOR SELECT TESTS SEQ 0106 
-SBTTL EXTENDED MEMORY, DRIVE TIMING & SECTOR SELECT TESTS 


ppeeeeerereerererrerereereeeeerereteeeeeeeeeneneeeeeteneereeeeeee 
s*TEST 45 MAKE CURRENT CYLINDER = 0 
ppeeererereerererrerererterrereerererertenereeeeeneneeneerenereee 
TST45: SCOPE 

MOV WSTACK,SP ;RESET STACK 


MOV #TTNO,Q¢TSTNM ;THIS SAVES TEST NUMBER 

JSR PC ,a#CLDISK ; INIT DRIVE 

MOV #OMD ,ARHAR :SET DIAGNOSTIC MODE 

JSR RO, @#MAKECYL ; SUBROUTINE TO GIVE A SEEK 

; COMMAND FOLOWED BY AN INIT 

0 > THIS SHUOLD CHANGE RHCC TO 0 
speeeeeereereneetereereeeeeeteeeeereeeeeteteeeeeeeeeeeeeeTe ETT 
:*TEST 46 RHCS1 - BITS 8 AND 9 = EXTENDED ADDR (A116 & A 17) 


WRITE CYLINDER 0, FORMAT 16 BITS PER WORD 

TRACK 0, SECTOR 0, KEYS 0, NUMBER OF WORDS 256 

DATA IS THE CONTENTS OF THE TTY READER STATUS REGISTER 

THIS WILL USE BITS A16 AND A17 WHEN THERE IS MORE THAN 28K OF MEMORY 


2s 2s 8 


. 
. 
: 
. 
pp eeeneeetererererererecereeeeerrereeteeeetetereeeeeteeeee Tees 
TST46: SCOPE 


MOV WSTACK,SP RESET STACK 
MOV #TINO,Q#TSTNM ;THIS SAVES TEST NUMBER 


s*CHECK TO SEE 1F PROGRAM IS RUNNING WITH AN RH70 


TST a#RH70 TEST FOR RH70 CONTROLLER 

BEQ 30$ s1F FLAG = 1, SKIP THIS TEST 

JMP TS147 SHURP 10 MERT TES] eeccoococssencccncee ) 
30$: ;1F FLAG = 0, DO THIS TEST 

JSR RO,@#CLAREA ;CLEAR SIMULATED DISK 

-WORD DISK ;FROM 

WORD TOLGAP+16 ;10 

«WORD 0 ;DATA 


; THESE ARE SETUP FOR DISKLESS USE ONLY 


MOV WFMT22,QMCYL; CYLINDER 0 
;16 BITS PER WORD 
CLR @#SECOTR ;SECTOR 0 TRACK 0 


CLR aeKEYl :KEVI 0 

CLR aeKEY2 KEY2 0 

MOV #256. ,a#NOWORD NO OF DATA WORDS 
MOV #1,aex “WRITE DATA 


on 
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CZRIHD.P12  01-MAR-79 09:10 146 RHCS1 = BITS 8 AND 9 = EXTENDED ADDR (A16 & A 17) SEQ 0107 
4663 031052 004537 047332 JSR RS, aw CRC :G0 TO CALCULATE CRC 
4664 031056 053010 CYL 
4665 031060 054710 WCRC 
4666 
4667 : THESE ARE REGULAR SETUPS 
4668 
4669 
4670 031062 004737 046116 JSR PC, ,a#CLDISK 3; SETUP oT cone REGISTERS 
4671 031066 012777 177400 163654 MOV #-256.,aRHWC 256 DATA WORDS 
4672 031074 013777 001144 163650 MOV aaSTKS,aRHBA sSTARTING ADDRESS OF WRITE BUFFER 
4673 031102 017737 150036 015140 MOV edb ae TMPILL : TEMPORARY STORAGE OF DATA 
4674 031110 005077 163646 CLR @RHD “SECTOR 0 TRACK 0 
4675 031114 012777 010000 163644 MOV aTATe2 @RHOF :16 BITS PER WORD FORMAT 
4676 031122 005077 163642 CLR @RHCA sCYLINDER 0 
4677 031126 004737 046160 JSR PC ,a#CHECKT ;CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T 
4678 031132 104401 005123 TYPE »CPHALT ;CANNOT CONTINUE TESTING IF ANY OF THE 
4679 :ABOVE BITS DON'T = 1 OR OTHERS ARE STUCK @ 1 
4680 031136 000000 HALT “STOP THE TEST 
4681 031140 013746 015170 MOV Q#WRIDAT,-(SP) :WRITE DATA=60 
4682 031144 052716 001400 BIS #A16'A17, (SP) :SET HIGH ORDER UNIBUS BITS 
4683 031150 012611 MOV (SP)+,aR1 sFILL RHCS1 
4684 031152 052777 000010 163574 BIS #BAI,a@RHCS2 ;SET BUS ag ig A INHIBIT 
4685 031160 005037 015124 CLR aNERFLGS “CLEAR ERROR F 
4686 031164 004737 052650 JSR PC ,a#COMHD s;WRITE DATA 


aon 
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4687 
4688 
4689 
4690 
4691 
4692 
4693 
4694 
4695 031170 
4696 031174 
4697 031200 
4698 031202 
4699 031206 
4700 031212 
4701 031216 
4702 031224 
4703 031226 
4704 031230 
4705 031236 
4706 031242 
4707 031246 
4708 031252 
4709 031254 
4710 
4711 031256 
4712 031260 
4713 
4714 
4715 031262 
4716 031264 
4717 031270 
4718 031274 
4719 031300 
4720 031302 
4721 031304 


004737 


000401 
104040 


005721 
017746 
042716 
022726 
001402 
005302 
001344 
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177177 
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053130 


001124 
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- BITS 8 AND 9 = EXTENDED ADDR (Al6 & A 17) 


RHCS1 


;1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
;FROM THE “‘COMHD’' ROUTINE IT MEANS SECTOR GAP, SYNC BYTE 
;HEADER, HEADER CRC, HEADER GAP AND SYNC BYTE HAVE GONE BY 
;AND SYNCS WERE CORRECTLY DETECTED. 


;DATA IS TO BE CHECKED. 


1$: 


2$: 


64$: 


3$: 


PC ,a#PUTREG 
a#ERFLGS 

TS147 
asTMPILL,RO 
#DISK,R1 

#256. ,R2 

#257. ,a#ERWORD 
ae 


;SAVE REGISTERS 


i HAVE ANY ERRORS OCCURED? 
pe OuT IF YES 
‘G00D 


DAT 
DATA WRITTEN INTO ‘‘DISK"’ 
; COUNTER 


[FOR ERROR WORD 


;COMPARE GOOD DATA WITH DATA ON DISK 
;BRANCH IF GOOD 


3 
a#TMPILL,a#$GDDAT;GOOD DATA 


=(R1) ,a#$BDDAT :8 


R2,a#ERWORD 
avERFLGS 


2 
37 


AD DATA 
ERROR WORD 


NO 
TANY ERRORS ALREADY THERE? 
;BRANCH IF YES 
ERROR ON WRITE DATA COMMAND 


;SEE NEXT ERROR COMMENTS 


64$ 
40 


;BRANCH TO AVOID PRINTING NEXT ERROR 
;WORD NO GIVES WORD IN ERROR 


ERROR OCCURED WHILE WRITING 
sWITH A16 A17 OF RHCS1 SET 


(R1)+ 
OSWR,-(SP) 
#177177,(SP) 
#SWO7,(SP)+ 
TS147 

Re 

1$ 


;UNDO -(R1) FOR BAD DATA 
;GET SWITCH SETTING 

:KEEP ONLY SWITCH 7 AND 8 
iTS 7 SET AND 8 RESET 


BRANCH OUT IF YES 
:1F NOT COUNT 256 WORDS 
[BRANCH IF 256 NOT DONE 


SEQ 0108 


on 
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01-MAR-79 09:10 146 RHCS1 = BITS 8 AND 9 = EXTENDED ADDR (Al6 & A 17) SEQ 0109 
4722 
4723 sp eeeeeerrerrererrereeeerertereeeereeetereeeeeenereeeeeAee eee eee ee 
ots s*TEST 47 DRIVE TIMING ERROR 
4726 hed A READ HEADER AND DATA IS STARTED ON CYLINDER 0, SECTOR 
4727 :* 0, TRACK 0, 260 WORDS. AFTER THE HEADER IS READ IN CORRECTLY, 
4728 7 NO SYNC BYTE (DATA SYNC) IS GIVEN 
4729 ;e THEN NORMAL DIAGNOSTIC DATA CLOCKS AND DIAGNOSTIC 
refs :* SECTOR CLOCKS ARE GIVEN FOR 24 BYTES. 
4732 ‘ie THEN 536 BYTES OF SECTOR CLOCKS ONLY ARE GIVEN. 
4733 he THIS IS TO TO BRING SECTOR PULSE UP WHICH SHOULD 
4734 :* SET "DRIVE TIMING ERROR’ - ‘DTE’ 
4735 ; sp eeeeerererererererererertrereerereeeeKeeKeKeKeeKeKeeeeTeKeee Ree 
4736 031306 000004 TST47: SCOPE 
4737 031310 012706 001000 MOV WSTACK ,SP ;RESET STACK 
rit 031314 012737 000047 017330 MOV WTTNO,@MTSTNM THIS SAVES TEST NUMBER 
1h | ;*THESE ARE TO SETUP FOR DISKLESS USE 
4742 031322 012737 010000 053010 MOV WEMT22,Q8CYL 316 BITS PER WORD 
4743 CYLINDER 0 
4744 031330 005037 053012 CLR @#SECOTR SECTOR 0 
4745 :TRACK 0 
4746 031334 005037 053014 CLR aaKEY! sKEY1 = 0 
4747 031340 005037 053016 CLR aeKEY2 ;KEY2 = 0 
4748 031344 005037 053020 CLR anx ;THIS 1S A READ COMMAND 
4749 031350 006537 047332 JSR RS ,a#CRC ;GO TO CALCULATE CRC 
4750 031354 053010 CYL 
ret! 031356 054710 WCRC 
4 
itt ;* THESE ARE REGULAR SETUPS 
4754 
4755 031360 004737 046116 JSR PC ,a#CLDISK ;SETUP GENERAL REGISTERS 
4756 031364 012777 177374 163356 MOV #-260. ,aRHWC 3256 DATA WORDS, 4 HEADER WORDS 
4757 031372 012777 016264 163352 MOV WREINTO,Q@RHBA 1 Hw tay ADDRESS OF BUFFER 
4758 031400 005077 163356 CLR @RHDST TRACK = 0 
4759 : :SECTOR = 0 
4760 031404 012777 014000 163354 MOV WFMT22'EC],@RHOF ;16 BITS PER WORD 
4761 :ECC CORRECTION INHIBITED 
4762 031412 005077 163352 CLR @RHCA ;CYLINDER = 
47635 031416 006737 046160 JSR PC ,a#CHECKT ;CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T 
4764 031422 104401 005125 TYPE ,CPHALT ; CANNOT CONTINUE TESTING IF ANY OF THE 
4765 ;ABOVE BITS DON'T = 1 OR OTHERS ARE STUCK a | 
4766 031426 000000 HALT :STOP THE TEST 
ies 031430 013711 015176 MOV Q#REFOR ARI ;READ HEADER AND DATA = 72 
476 
4769 ;*READ & SAVE REGISTERS FOR COMPARISON AFTER SIMULATED ‘DTE' 
4770 
4771 031434 004037 046616 JSR RO, a#SAVER ;READ IN SEQUENCE 
4772 031440 014750 RHWC FROM HARDWARE REGISTER 
4773 031442 015024 wC > INTO CORE AT LOCATION 
4774 031444 000023 19. ;NUMBER OF REGISTERS TO READ 





on 
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4778 
4779 
4780 
4781 
4782 
4783 031446 
4784 031454 
4785 
4786 
4787 
4788 031462 
4789 
4790 
4791 031466 
4792 033474 
4793 031502 
4794 031504 
4795 
4796 031510 
4797 031512 
4798 
4799 031516 
4800 
4801 
4802 
4803 
4804 
4805 
4806 
4807 
4808 
4809 
4810 
4811 
4812 031516 
4813 031522 
4814 031526 
4815 031532 
4816 031536 
4817 031542 
4818 031546 
4819 031552 
4820 031556 
4821 031560 
4822 031562 
4823 031564 
4824 
4825 
4826 
4827 031566 
4828 031572 
4829 031576 
48350 031602 
4831 031604 
4832 


104040 
000137 


052650 
163264 
100000 
045616 


932000 


000030 


000002 


001030 
000010 
000010 
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8$: 


4$: 


5$: 


76 SETCKI: 
76 
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DRIVE TIMING ERROR SEQ 0110 


;*NORMALLY FOR THE HEADER. BUT WHEN IT IS TIME TO READ 
;*DATA, ONLY SECTOR CLOCKS WILL BE- GIVEN. NO DIAGNOSTIC DATA 
*CLOCKS WILL BE GIVEN. THIS SHOULD BRING SECTOR PULSE HIGH 
;*WITHOUT PUTTING "READ’’ DOWN HENCE "DTE* WILL COME UP. 


MOV #-1 ,a#TESDOTE SET OTE TEST 

MOV #-1 ,a#ERFLGS ; THIS WILL BRING THE READ HEADER 
;AND DATA PROCESS OUT AFTER THE 
;HEADER HAS BEEN CORRECTLY READ 


JSR PC ,a#COMHD ;1SSUE *GO*, SEARCH FOR THE SECTOR 
;AND READ THE HEADER 


MGV @RHCS1,a#@$TMPO ;READ CS1 TO CHECK FOR ANY READ ERRORS 


BIT #SC ,a#STMPO ;TEST FOR “‘SPECIAL CONDITION’ - ‘SC' 

BEQ 8$ :CONTINUE WITH TEST IF ‘SC' = 0 (NO ERRORS) 

JSR PC ,a#PUTREG ;READ & SAVE ALL REGISTERS AGAIN IF AN 
;UNDEFINED DATA TRANSFER ERROR OCCURRED 

ERROR 40 ;READ/WRITE HEADER & DATA ERROR DURING 

JMP TS1T50 ; ‘DTE’' TEST - ABORT THE TEST 


;NOW THE HEADER HAS BEEN READ OK 

>*NOW 560 SECTOR CLOCKS WILL BE GlV 

;*GAP 11 BYTES, SYNC 1 BYTE, DATA 12, ECC 4 BYTES 
;*GAP 2 BYTES, TOLERANCE 28 BYTES, EXTRA 2 


s*THESE 560 SECTOR CLOCKS ARE DIVIDED INTO TWO GROUPS 
7*24 SECTOR CLOCKS WITH NORMAL DIAGNOSTIC DATA CLOCKS, 
s¥AND 536 SECTOR CLOCKS WITHOUT ANY DIAGNOSTIC DATA CLOCKS. 


s*THIS GIVES 24 SECTOR CLOCKS WITH DIAGNOSTIC DATA CLOCKS 
;tWHICH EQUALS 3 BYTES OF DATA 


MOV #24.,R1 ;LOAD COUNTER 

MOV @#RHMR ,RO ;GET RHMR ADDRESS 

MOV #DMD ,aRO ;SET DIAGNOSTIC MODE 

BIS WMSTCKIMCLK,QRO ;SET SECTOR CLOCK AND DATA CLOCK 
BIC WMSTCK!MCLK,@RO ;CLEAR SECTOR CLOCK AND DATA CLOCK 


MOV #7 ,R2 ;LOAD COUNTER FOR DIAGNOSTIC CLOCKS 
BIS #MCLK ,aRO ;SET CLOCK 

BIC #MCLK,aRO ;CLEAR CLOCK 

DEC R2 :COUNT TO 7 

BNE 4$ BRANCH IF 7 NOT DONE 

DEC R1 ;COUNT TO 24 

BNE 1$ ;BRANCH IF 24 NOT DONE 


:*THIS GIVES 536 SECTOR CLOCKS WITHOUT DIAGNOSTIC DATA CLOCKS 
MOV #536.,R1 ;LOAD SECTOR CLOCK COUNTER 


BIS #MSTCK ORO ;SET SECTOR CLOCK 

BIC #MSTCK ARO CLEAR SECTOR CLOCK 

DEC R1 ; COUNT 

BNE 5% ;BRANCH IF 536 NOT DONE 


aon 
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4834 
4835 
4836 
4837 031606 
4838 031614 
4839 031622 
4840 031630 
4841 031636 
4842 031644 
4843 031652 
4844 031660 
4845 031666 
4846 
4847 
4848 
4849 
4850 
4851 031674 
4852 031700 
4853 031702 
4854 031704 
4855 
4856 
4857 031706 
4858 
4859 
4860 
4861 031714 
4862 031720 
4863 031722 
4864 031724 
4865 031726 
4866 031730 
4867 031732 
4868 031734 
4869 
4870 
4871 031736 
4872 
4873 031740 
4874 
4875 
4876 
4877 
4878 031740 
4879 031744 
4880 031746 
4881 031750 
4882 031752 
4883 031754 
4884 031756 
4885 
4886 031760 
4887 031764 
4888 031766 
4889 031774 


ooooo°cKe°coo 
et ot FO oe 
WRroMRrrnnrr 
SSNS NSN SSS 
AIA 
NNN 


004037 


000023 


113737 


004037 


104010 


000207 


spt tH 


032000 
013705 


104001 


177400 024 
016274 026 
140000 032 
010000 034 


000001 
015134 


oO 

So 

o 

= 

Oo 

—_ 
oooooo°coo 
ee ee ae ae ee 
AAA 

So 

uw 

Nm 


046616 


015051 015245 


047020 


047020 


053130 
014746 045662 
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6$: 


7$: 
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DRIVE TIMING ERROR 


;*NOW 'DTE' SHOULD BE SET 
> *CHANGE SAVED REGISTERS TO EXPECTED VALUES 


MOV #-256. ,aeuC ; SAVED RHWC 
MOV WREINTO+<4.*2>,QMBA ; SAVED RHBA 
BIS WSC!TRE,@#CS1 | ;SAVED RHCSI 


BIS #OTE ,awERI ; SAVED RHER1 
MOV #401, aamR : SAVED RHMR 
BIS WATA'ERR, @#DS1 ; SAVED RHDS1 
MOV #100, aaLA ;SAVED RHLA 
MOV #| "aiDst ; SAVED RHDST 


MOV aWATTENT ,a#AS 7; SAVED RHAS 


;*NOW READ & SAVE REGISTERS AGAIN SO THAT COMPARISONS 
;*CAN BE DONE (USE THE 'WRFROM' SAVE BUFFER THIS TIME) 


JSR RO, a#SAVER ;READ IN SEQUENCE 

RHWC FROM HARDWARE REGISTER 

WRF ROM : INTO CORE BUFFER 

4, ;NUMBER OF REGISTERS TO READ 


;*FOR RHAS UPPER BYTE 
MOVB Q#AS+1,a#WRFROM*+25 ; UPPER RHAS 


;*COMPARE THE HEADER READ 


JSR RO, a#COMPAR ; COMPARE 

CYL ;GOOD BUFFER 

REINTO ee BUFFER 

4. UMBER 

6% RETURN FOR ERROR 

6% 7 SAME 

7$ ;RETURN FOR GOOD COMPARISON 

ERROR 10 ;HEADER READ IN DURING stated TEST IS 
; IN ERROR 

RTS PC ; RETURN 


;GOOD COMPARISON, CONTINUE 


> *COMPARE REGISTERS BEFORE COMMAND WITH REGISTERS AFTER COMMAND 


JSR RO,a#COMPAR ; COMPARE 

wC s INITIAL SNAPSHOT BUFFER (CHANGED) 
WRF ROM ; TEST SNAPSHOT BUFFER 

18. sNUMBER OF REGISTERS 

2$ ;RETURN FOR ERROR 

2$ > SAME 

3$ sRETURN FOR GOOD COMPARISON 
MOV a#ERWORD,RS sGETTING READY TO INDEX 

ADD R5,R5 ;DOUBLE ERROR WORD 

MOV RHWC = 2(R5), aPREGADR sFAILING REGISTER 

ERROR 1 : [IMPROPER REGISTER 


SEQ 0111 


on 
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4892 031776 000207 
Eee 
rr oe} 032000 
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DRIVE TIMING ERROR 


sCHANGE AFTER FORCING 
;"DTE* ERROR 
sRETURN 


;GO0D - REGISTERS OK, GO ON TO NEXT TEST 


SEQ 0112 


CZRJHDO ,RPO4/5/6 DSKLS sy 
01-MAR-79 09:10 


CZRIHD.P12 


032000 
032002 
032006 
032014 
032022 


032026 


032052 


032054 


032074 
032100 
032106 
032112 
032116 


032122 
032124 


000004 
012706 
012737 
012737 
005037 


005037 


054710 


004737 


005077 
012777 


005077 
004737 
104401 


000000 
013711 


004037 
014750 
015024 
000025 


001000 
000050 


010000 
053012 
053014 
053016 


177777 
047332 


046116 
177400 
015220 
162662 


010000 
162656 


046160 
005123 


015170 


046616 
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017330 


053010 


053020 


162662 
162656 


162660 
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DRIVE TIMING ERROR SEQ 0113 


sp etereereerererrererrerrrerrerrereereeeeeeeeeeeeeeeeeRe eee eee ee 


:*TEST 50 DRIVE TIMING ERROR 
3* A WRITE DATA COMMAND 1S STARTED ON CYLINDER 0, SECTOR 
:* 0, TRACK 0, 256 WORDS. 
*® 
;* THE SECTOR IS SEARCHED FOR AND 
;* AFTER THE HEADER 1S READ IN CORRECTLY, 
;* NO SYNC BYTE (DATA SYNC) IS GIVEN 
;* NORMAL DIAGNOSTIC DATA CLOCKS - DIAGNOSTIC 
;* SECTOR CLOCKS ARE GIVEN FOR 24 BYTES, 
i* THEN 536 BYTES OF SECTOR CLOCKS” hig ARE GIVEN. 
‘ff 
it THIS 1S TO TO BRING SECTOR PULSE UP 
;* WHICH SHOULD SET ‘DRIVE TIMING ERROR’ - ‘DTE' 
peetrereereerereerrrrereererereererteereeeeeeeeeeeenAeeKeeeeeTee ee 
TST50: SCOPE 
MOV @STACK,SP sRESET STACK 
MOV #TTNO,Q4TSTINM ;THIS SAVES TEST NUMBER 
:*THESE ARE TO SETUP FOR DISKLESS USE 
MOV WFMT22 ,aaCYL :16 BITS PER WORD 
sCYLINDER 0 
CLR a#SECOTR sSECTOR 0 
s TRACK 0 
CLR aaKer sKEY1 = 0 
CLR aaKEY2 sKEY2 = 0 
MOV #-1,08X THIS 1S FOR WRITE DATA COMMAND 
< R5,a@CRC 3G0 TO CALCULATE CRC 
YL 
wCRC 
:* THESE ARE REGULAR SETUPS & CHECKS 


JSR PC ,a#CLDISK sSETUP GENERAL REGISTERS 
MOV #-256. ,A@RHWC 3256 DATA WORDS 
MOV #WREROM,QRHBA {Mota ADDRESS OF BUFFER 


CLR @RHDST TRACK = 0 

:SECTOR = 0 
MOV #FM122,aQRHOF :16 BITS PER WORD 

ECC CORRECTION INHIBITED 
CLR ORCA = CYLINDER = 


JSR PC ,a#CHECKT CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T 
TYPE ,CPHALT CANNOT CONTINUE TESTING IF ANY OF THE 

ABOVE BITS DON'T = 1 OR OTHERS ARE STUCK @ 1 
HALT ;STOP THE TEST 
MOV a#WRIDAT,@R1 TWRITE DATA = 60 


s*READ & SAVE REGISTERS FOR COMPARISON AFTER SIMULATED ‘DTE* 
JSR RO, a#SAVER ;READ REGISTERS IN SEQUENCE 


RHWC FROM HARDWARE REGISTER 
wC INTO CORE BUFFER LOCATION 
19, ;NUMBER OF REGISTERS TO READ 


Oona 
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032142 
032150 


032156 


032162 
032170 
032176 
032200 
032204 
032206 


032212 


032212 


032260 


032262 


032500 


01-MAR-79 09:10 


004737 


004737 
104040 
000137 


177777 
177777 


052650 


162570 
100000 


045616 


032524 


000030 


000002 


001030 
000010 
000010 
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SETCK2: 


6$: 


1$: 


4$: 


5$: 
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DRIVE TIMING ERROR SEQ 0114 


;*NOW 'GO' WILL BE GIVEN, EVERYTHING WILL BE TREATED 
s*NORMALLY FOR THE HEADER. WHEN IT IS TIME TO WRITE 

s*DATA, ONLY SECTOR CLOCKS WILL BE GIVEN, NO DIAGNOSTIC DATA 
S*CLOCKS WILL BE GIVEN. THIS SHOULD BRING SECTOR PULSE HIGH 
;*WITHOUT PUTTING READ DOWN, HENCE ‘DTE* WILL COME UP. 


MOV #-1 ,AMTESDTE SET OTE TEST 

MOV #-1 ,a#ERFLGS ; THIS WILL BRING THE READ HEADER 
;AND DATA PROCESS OUT AFTER THE 
;HEADER HAS BEEN CORRECTLY READ 


JSR PC ,a#COMHD ; ISSUE "GO", SEARCH FOR SECTOR, 
;READ HEADER AND DATA. 


MOV @RHCS1,a#S$TMPO ;READ CS1 TO CHECK FOR READ ERRORS 

BIT #SC ,a#STMPO :TEST FOR "SPECIAL CONDITION’ = 'SC' 

BEQ 6$ :CONTINUE TESTING IF NO ERROR 

JSR - PC, a#PUTREG TREAD & SAVE REGISTERS AGAIN IF UNDE- 
FINED ERROR HAS OCCURRED 


ERROR 40 ; THERE WAS A READ/WRITE — ERROR 
[DURING 'DTE* TEST SETUP 
JMP TST51 : ABORT THE TEST 


;NOW THE HEADER HAS BEEN READ, 

3*560 SECTOR CLOCKS WILL BE GIVEN - 

:*GAP 11 BYTES, SYNC 1 BYTE, DATA 512, ECC 4 BYTES 
:*GAP 2 BYTES, TOLERANCE 28 BYTES, EXTRA 2 


:*THESE 560 SECTOR CLOCKS ARE DIVIDED INTO TWO GROUPS 
7*24 SECTOR CLOCKS WITH NORMAL DIAGNOSTIC DATA CLOCKS 
:tAND 536 SECTOR CLOCKS WITHOUT ANY DIAGNOSTIC DATA cLOLKS 


s*THIS GIVES 24 SECTOR CLOCKS WITH DIAGNOSTIC DATA CLOCKS 


MOV #24.,R1 ;LOAD SECTOR CLOCK COUNTER 

MOV @#RHMR ,RO ;GET RHMR ADDRESS 

MOV #DMD,aRO SET DIAGNOSTIC MODE 

BIS WMSTCKIMCLK,@RO ;SET SECTOR CLOCK AND DATA CLOCK 

BIC WMSTCK!MCLK,@RO ;CLEAR SECTOR CLOCK AND DATA CLOCK 

MOV #7,R2 ;LOAD COUNTER FOR DIAGNOSTIC DATA CLOCKS 
BIS #MCLK,aRO SET CLOCK (DATA) 

BIC #MCLK ,aRO ;CLEAR CLOCK (DATA) 


DEC R2 ; COUNT 

BNE 4$ :BRANCH IF 7 NOT DONE 

DEC R1 ; COUNT 

BNE 1$ ;BRANCH IF 24 NOT DONE 

:*THIS GIVES 536 SECTOR CLOCKS WITHOUT DIAGNOSTIC DATA CLOCKS 
MOV #536.,R1 ;LOAD SECTOR CLOCK COUNTER 

BIS #MSTCK,aRO ;SET SECTOR CLOCK 

BIC #MSTCK,aRO CLEAR SECTOR CLOCK 

DEC R1 ; COUNT 

BNE 5$ :BRANCH IF 536 NOT DONE 


on 
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032340 
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032364 


032372 


032436 


032444 
032454 


032456 


032464 
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017737 


005737 
001412 


012737 
012737 
052737 
000414 


012737 


052737 
052737 


004037 
014750 
016264 
000023 


113737 


004037 
015024 


032524 


013705 
060505 
016537 
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162502 


017334 


177416 


015254 
000300 


177511 


015134 


046616 


015051 


047020 


053130 
014746 


MACY11 30A(1052) 
150 


015064 


016311 


045662 


VARI: 
VAR2: 


JP1: 


JP2: 


2$: 


. 
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DRIVE TIMING ERROR 


;*ECC PATTERN REGISTER IS NOT CHECKED 


MOV 


@RHEC2 ,avEC2 


;RHEC2 1S NOT CHECKED 





:*NOW "DTE' SHOULD BE SET, CHANGE SAVED REGISTERS TO EXPECTED VALUES 


TST 
BEQ 


:*NOW READ & SAVE REGISTERS AGAIN SO THAT COMPARISONS 
CAN BE DONE (USING ‘WRFROM' BUFFER THIS TIME) 


;READ IN SEQUENCE 
;FROM HARDWARE REGISTER 

; INTO CORE BUFFER LOCATION 
NUMBER OF REGISIERS TO READ 


a#RH70 CHECK FOR RH70 CONTROLLER 
JP1 ;SKIP RH70 CODE AND DO RH11 IF NOT 


;RHWC AND RHBA WILL BE MODIFIED FOR RH70C 
RHWC 


#-242. ,aewC ; SAVED 


#WREROM+<14. 02>, aNBA 
#IR'OR,a#CS2 
JP2 


#-183. ,a#we 
#WRFEROM+<73.%2>,a#BA 
#IR,a#CS2 
#OR ,a#CS2 


; SAVED RHBA 


7SAVED RHCS2 
sSKIP NEXT RH11 CODE 


; SAVED RHWC 


; SAVED RHBA 


;SAVED RHCS2 
; SAVED RHCS2 


WSC!TRE,@#CS1 ;SAVED RHCS1 


#DTE,a#ERI 


;SAVED RHER1 


MDENVL!DMD,Q4MR ;SAVED RHMR 
WATA‘ERR,@#0S1 ;SAVED RHDS1 


#100,aaLA 


SAVED RHLA 


#1 ,aaDST SAVED RHDST 
Q#ATTENT,@#AS ;SAVED RHAS 


RO ,a#SAVER 


;*FOR RHAS UPPER BYTE 
Q#AS+1,Q#REINTO+25 [UPPER RHAS 


MOVB 


s*COMPARE CHANGED REGISTER SNAPSHOT BEFORE COMMAND WITH 


> *SNAPSHOT AFTER COMMAND 


JSR 
we 


RO, a#COMPAR :CO 


MPARE 
CHANGED INITIAL SNAPSHOT BUFFER 
;SNAPSHORT BUFFER AFTER COMMAND 
;NUMBER OF REGISTERS 10 COMPARE 


;RETURN FOR ERROR 


3 SAME 
;RETURN FOR GOOD COMPARISON 


;GETTING READY TO INDEX 
OUBLE ERROR WORD 


Q#ERWORD,RS 
R5,R 30 
RHWC-2(R5) ,@#REGADR 


FAILING REGISTER 


om 
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5065 


032520 104001 


032522 000207 
032524 


DRIVE TIMING ERROR 
ERROR 1 


a 9 
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RTS PC 
3$: 


SEQ 0116 


; IMPROPER REGISTER 
CHANGE AFTER FORCING 
;'DTE' cRROR 

; RETURN 


;GO0D, REGISTERS OK - GO ON TO NEXT TEST 


n 9 
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CZRIHD.P12 01-MAR-79 09:10 150 DRIVE TIMING ERROR SEQ 0117 
5073 
5074 ppeeeereceerereecesrereeeererererererrereereereerereeeeeeeeTetere 
sore :*TEST 51 DRIVE TIMING ERROR 
5077 se A WRITE HEADER AND DATA COMMAND IS GIVEN 
are se TO CYLINDER 0, SECTOR 0, TRACK 0, 256. WORDS. 
°@ 
5080 rd AFTER SECTOR IS FOUND (THE SECTOR FOUND FLOP IS HIGH), 
5081 hl NO MORE DIAGNOSTIC DATA CLOCKS ARE GIVEN 
5082 ;* ONLY SECTOR CLOCKS ARE GIVEN TILL SECTOR PULSE IS HIGH. 
5083 :* THIS SHOULD SET "DRIVE TIMING ERROR’ - 'DTE' 
5084 ppeeeeeeererrrereeeeererereereteretereeeeeeeAAeeeereeeeeeeeee Te 
5085 032524 000004 TST51: SCOPE 
5086 032526 012706 001000 MOV #STACK,SP RESET STACK 
244 032532 012737 000051 017330 MOV #TINO,@#TSTNM 8; THIS SAVES TEST NUMBER 
sees :*THESE ARE TO SET UP FOR DISKLESS USE ONLY 
5 44 032540 012737 01000C 056146 MOV WFMT22 ,a#WCYL a OTL INDE _ BITWORDS AND 
YL 
5093 032546 005037 056150 CLR @#WSECTR :TRACK=0, SECTOR=0 
5094 032552 005037 056152 CLR aawKEY! :KEY1=0 
5095 032556 005037 056154 CLR aaWKEY2 SKEY2=0 
5090 032562 012737 000400 056206 MOV #256. ,aM#FNWORD ;256 DATAWORDS 
5097 032570 004537 047332 JSR R5,aa#CRC :GO TO CALCULATE CRC 
5098 032574 056146 WCYL 
+ 644 032576 056156 | GCRC 
sigs 3* THESE ARE REGULAR SETUPS & CHECKS 
5103 032600 004737 046116 JSR PC ,a#CLDISK :SETUP GENERAL REGISTERS 
5104 032604 012777 177374 162136 MOV #-260. ,aRHWC 3256 DATA WORDS & 4 HEADER WORDS 
5105 032612 012777 015220 162132 MOV WWRFEROM,@RHBA ;STARTING ADDRESS OF BUFFER 
ater 032620 005077 162136 CLR @RHDST ria a :. 
5108 032624 012777 014000 162134 MOV WFMT22'ECI],@RHOF ;16 BITS PER WORD 
5109 ECC CORRECTION INHIBITED 
$110 032632 005077 162132 CLR @RHCA CYLINDER = 0 
5111 032636 004737 046160 JSR PC ,@#CHECKT > CHECK DVA,RDY,.DPR,DRY = 1 AND OTHERS DON'T 
5112 032642 104401 005123 TYPE ,CPHALT ;CANNOT CONTINUE TESTING IF ANY OF THE 
5113 ; ABOVE a" DON'T = 1 OR OTHERS ARE STUCK @ 1 
5114 032646 000000 HALT :STOP THE TEST 
Nu 032650 013711 015172 MOV Q#WRIFOR, ARI ;WRITE HEADER AND DATA = 62 
A A *READ & SAVE REGISTERS FOR COMPARISON AFTER SIMULATED ‘DTE' 
5119 032654 004037 046616 JSR RO, @#SAVER ;READ IN SEQUENCE 
5120 032660 014750 RHWC FROM HARDWARE REGISTER 
5121 032662 015024 wC : INTO CORE BUFFER LOCATION 
5122 032664 000023 19, ;NUMBER OF REGISTERS TO READ 


On 
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— 
Nm 
Ww 


124 s*NOW 'GO' WILL BE GIVEN. EVERYTHING WILL BE TREATED 

125 ;*NORMALLY TILL HEADER 1S TO BE GIVEN, THEN ONLY 

126 s*SECTOR CLOCKS WILL BE GIVEN. NO DIAGNOSTIC DATA 

127 s*CLOCKS WILL BE GIVEN. THIS SHOULD BRING SECTOR PULSE HIGH 
if s*WITHOUT PUTTING ‘'READ'’ DOWN, HENCE 'DTE* WILL COME UP. 

130 032666 012737 177777 015144 MOV #-1,a#TESDTE SET DTE TEST 

131 032674 012737 177777 015124 MOV #-1,a#ERFLGS sTHIS WILL BRING THE READ HEADER 

132 AND DATA PROCESS OUT AFTER THE 

if sHEADER HAS BEEN CORRECTLY READ 

135 032702 004737 055772 JSR PC ,a#COMWHD s1SSUE 'GO', SEARCH FOR SECTOR, 

1% sWRITE HEADER AND DATA. 

138 032706 017737 162044 001176 SETCK3: MOV Q@RHCS1,a#$TMPO ;READ CS1 TO CHECK FOR ERRORS DURING WRITE 
139 032714 032737 100000 001176 BIT #SC,a#$TMPO sTEST FOR ''SPECIAL CONDITION’ - ‘SC’ 
140 032722 001405 BEQ 4$ CONTINUE TEST IF NO ERROR ('SC' = 0) 
141 032724 004737 045616 JSR PC ,a#PUTREG sREAD & SAVE REGISTERS AGAIN IF ERROR 
142 032730 104040 ERROR 40 s THERE WAS A READ/WRITE HEADER ERROR 
143 sDURING 'DTE' TEST SETUP 

rr 032732 000137 033164 JMP TST52 3 ABORT THE TEST AT THAT POINT 
py 032736 4$: ;NOW SECTOR HAS BEEN FOUND OK 


;*609 SECTOR CLOCKS WILL BE GIVEN, 

;*39 BYTES FOR SECTOR GAP, 

;*1 BYTE FOR HEADER SYNC, 

;*8 BYTES FOR HEADER, 

;*GAP 11 BYTES, SYNC 1 BYTE, DATA 512, ECC 4 BYTES 
3*GAP 2 BYTES, TOLERANCE 28 BYTES, EXTRA 3 


;*THIS GIVES 609 SECTOR CLOCKS WITHOUT DIAGNOSTIC DATA CLOCKS 


032736 012701 001141 MOV #609. ,R1 ;LOAD SECTOR CLOCK COUNTER 
032742 052710 000010 5$: BIS #MSTCK ARO ;SET SECTOR CLOCK 

032746 042710 000010 BIC #MSTCK ARO ;CLEAR SECTOR CLOCK 

032752 005301 DEC R1 ; COUNT 

032754 001372 BNE 5$ ;BRANCH IF 536 NOT DONE 


;*NOW 'DTE' SHOULD BE SET, CHANGE SAVED REGISTERS 
;TO0 EXPECTED VALUES 


032756 005737 017334 TST a#RH70 CHECK FOR RH70 CONTROLLER 

032762 001407 BEQ JP3 ;SKIP RH70 CODE AND DO RH11 IF NOT 
;RHWC, RHBA AND IR BIT WILL BE MODIFIED FOR RH70C 

032764 012737 177404 015024 VAR3: MOV #-252. ,a#wC ; SAVED RHWC 

032772 012737 015240 015026 VAR4: MOV #WREROM+<8.*2>,0#BA ;SAVED RHBA 

033000 000406 BR JP4 ;SKIP NEXT RH11 CODE 

033002 012737 177477 015024 JP3: MOV #-193. ,a#wC ; SAVED RHWC 

033010 012737 015426 015026 MOV #WREROM+<67.*2>,Q#BA ;SAVED RHBA 


PUP PUDU PLETED DUS SUED IU SUIT ITT II 


td ot st 


NN NN NN NS OAS AAAS AAS SHS MMANMMAMNAMNN ES & 
WNC USE WN | OO OONG UN FW — OO OOnNFOUEFWN—O”OW 


033016 052737 140000 015032 JP4: BIS MSC!TRE,@#CS1 =; SAVED RHCS1 


aon 
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5179 
5180 
5181 


WFwr 


DUPED SISA ASIST 
ee a as as ss a 
COVFWN—OO@en 


SEZLSSLSSSSSSESS 


PAIMAAAAANY 
MPM PP Pnrr 


033024 


033142 
033144 
033150 
033152 
033160 
033162 


033164 


004037 
014750 
016264 
000023 


113737 


004037 


033164 


013705 
060505 
016537 
104001 


000207 


000100 


015134 


046616 


015051 


047020 


053130 
014746 
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30 VARS: 


016311 


045662 


2$: 


3$: 
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DRIVE TIMING ERROR SEQ 0119 C 
BIC WIR, a#CS2 ;SAVED RHCS2 
BIS WOR ,a#CS2 ;SAVED RHCS2 
BIS WOTE ,QWERI ;SAVED RHER1 
MOV #401, MMR ; SAVED RHMR 
BIS WATA‘ERR,@#DS1 ;SAVED RHDS1 


MOV #100,a4LA ; SAVED RHLA 
MOV #1,a#D0ST ; 
MOV Q#ATTENT,Q#AS ; SAVED RHAS 


>*NOW READ & SAVE REGISTERS AGAIN SO THAT COMPARISONS CAN BE DONE 


JSR RO,@#SAVER ;READ IN SEQUENCE 

RHWC FROM HARDWARE REGISTER 
REINTO ; INTO CORE BUFFER LOCATION 
19. ;NUMBER OF REGISTERS TO READ 


;*FOR RHAS UPPER BYTE 
MOVB Q#AS+1,Q#REINTO+25 ; UPPER RHAS 


;*COMPARE CHANGED REGISTER SNAPSHOT BEFORE COMMAND 
;*W1TH REGISTER SNAPSHOT AFTER COMMAND 


JSR RO, a#COMPAR ; COMPARE 

we sCHANGED REGISTER SNAPSHOT 
REINTO ; SNAPSHOT AFTER COMMAND 

18. sNUMBER OF REGISTERS TO COMPARE 
2$ sRETURN FOR ERROR 

2$ 3 SAME 

3$ ;RETURN FOR GOOD COMPARISON 
MOV Q#ERWORD,RS :GETTING READY TO INDEX 

ADD R5,R5 ;DOUBLE ERROR WORD 

MOV RHWC-2(R5) ,QMREGADR ; FAILING REGISTER 

ERROR 1 ; IMPROPER REGISTER 


; CHANGE AFTER FORCING 
;"DTE" ERROR 
RTS PC ; RETURN 


;GOO0D, REGISTERS COMPARE OK 
;GO ON TO THE NEXT TEST 


D 10 
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CZRJHD. P12 01-MAR-79 09:10 T52 SECTOR SELECTION SEQ 0120 
5220 ppAeeeeteeeeeeeetereeeeeeereereterrtttrereeeeeeeeeeeeAeAe AeA 
25s) s*TEST 52 SECTOR SELECTION 
5223 3% THE SECTOR SELECTION LOGIC IS CHECKED HERE 
esse ;* EACH SECTOR ON TRACK ZERO IS WRITTEN INTO. 

** 
5226 3* DATA IS - 19 WORDS OF ZEROS - SYNC WORDS, 4 HEADER WORDS 
5227 3* 1 CRC WORD, 5 WORDS OF ZEROS, 1 SYNC WORD, 100 ZEROS 
3$53 i* (DATA), 1 SYNC WORD, 70 SECTOR NUMBER TO VARY 
** 

eset 3* THE WRITTEN DATA IS CHECKED IN MEMORY 
5232 PPAeeeeeee eee etter teeter eee rtetete eee eAee AAA ete Kee ATA 
5233 033164 000004 TST52: SCOPE 
5234 033166 012706 001000 MOV ASTACK,SP sRESET STACK 
5235 033172 012737 000052 017330 MOV ATINO,O#TSTNM ;THIS SAVES TEST NUMBER 
a5ee 033200 004737 046116 JSR PC ,a#CLDISK i SETUP. GENERAL REGISTERS & CLEAR 

31TH V 
5238 033204 012737 000026 015146 MOV #22. ,a#TAGDTE 322 SECTORS 
5239 sTHIS TEST REPEATS 
eset s1TSELF 22 TIMES 
Hk s*THE FOLLOWING INITIALIZES FOR SECTOR 0 
5244 033212 005037 033316 CLR a#ss3+2 ;HEADER (SECTOR) 
5245 033216 012737 000025 033322 MOV #21. ,0#SS4+2 sHEADER (KEY1) 
5246 033224 012737 000025 033326 MOV #21. ,a#SS5+2 sHEADER (KEY2) 
5247 033232 005037 033354 CLR a#SS7+2 ;DATA (SECTOR) 
5248 033236 005037 033436 CLR a#Ssi0+2 DATA 
5249 033242 005937 033466 CLR a#Ssi2+2 sSECTOR (SIMULATED DISK) 
5250 033246 012737 000025 033474 MOV #21. ,a0#SS13+2 3KEY1 (SIMULATED DISK) 
5251 033254 012737 000025 033502 MOV #21.,0#SS1442 ;KEY2 (SIMULATED DISK) 
o53¢ 033262 005037 033542 CLR a#SS15+2 sSECTOR (RHDST) 
5254 s*CLEAR SIMULATED DISK AREA 
5255 033266 $S1: 
$256 033266 012700 054630 1$: MOV #SECGAP,RO ;POINTER 
5257 033272 012701 000460 MOV #304.,R1 ; COUNTER 
5258 033276 005020 2$: CLR (RO)+ sCLEAR SIMULATED DISK AREA 
5259 033300 005301 DEC R1 ; COUNT 
5260 033302 001375 BNE 2$ 
5261 
5262 
5263 :*SETUP WRITE FROM BUFFER 
asec 033304 012700 015220 MOV #WRFROM,RO 
5266 > *HEADER 
5267 033310 012720 010000 MOV #FMT22,(RO)+ ;FORMAT 16 BITS PER WORD 
5268 s CYLINDER 0 
5269 033314 012720 000000 $$3: MOV #0, (RO)+ sSECTOR TO VARY 
5270 033320 012720 000025 $S$4: MOV #21.,(RQ)+ sKEY1 TO VARY 
4344 033324 012720 000025 $$5: MOV #21.,¢(R0)+ ;KEY2 TO VARY 
5273 :*DATA IN WRITE FROM BUFFER ALTHOUGH THIS IS DATA AND NOT 
5274 :tHEADER, THE SECTOR WITH SYNC BYTES WILL BE GIVEN AS DATA, 


aon 
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CZRJHD.P12 01-MAR-79 09:10 152 SECTOR SELECTION SEQ 0121 
5276 :*DATA 1S = 19 WORDS OF ZEROS - SYNC WORDS, 4 HEADER WORDS 
$277 :#1 CRC WORD, 5 WORDS OF ZEROS, 1 SYNC WORD, 100 ZEROS 
esis :*(DATA), 1 SYNC WORD, 70 SECTOR NUMBER TO VARY 
$280 033330 012705 000023 MOV #19.,R5 ; COUNTER 
$281 033334 005020 6$: CLR (RO)+ 319 ZEROS 
§282 033336 005305 DEC R5 ; COUNT 
5283 033340 001375 BNE 6$ 319 DONE? 

5284 033342 013720 053112 MOV @#RSYNC,(RO)+ sSYNC = 14400 

5285 033346 012720 010000 MOV #FMT22,(RO)+ sCYLINDER 0 

5286 033352 012720 000000 $S7: MOV #0,(RO)+ :SECTOR TO VARY 

5287 033356 005020 CLR (RO)+ 

5288 033360 005020 CLR (RO)+ 

5289 033362 004537 047332 JSR R5,aaCRC :CALCULATE CRC FOR ABOVE 4 WORDS 
5290 033366 015270 URFROM+50 :4 WORDS START FROM HERE 
324 033370 015300 WRF ROM+60 PUT CRC HERE 

‘Ser 033372 005720 TST (RO)+ ; INCREMENT RO 

5295 033374 012705 000005 MOV #5.,R5 

5296 033400 005020 8$: CLR (RO) + 35 WORDS OF ZEROS 

5297 033402 005305 DEC R5 3; COUNT 

4344 033404 001375 BNE 8$ ‘BRANCH IF 5 NOT DONE 
4544 033406 013720 053112 MOV @ARSYNC,(RO)+ :SYNC = 14400 

5302 033412 012705 000144 MOV #100.,R5 

5303 033416 005020 9$: CLR (RO) + 7100 WORDS OF ZEROS 

5304 033420 005305 DEC R5 

f 9t4 033422 001375 BNE 9$ 

5307 033424 013720 053112 MOV @#RSYNC,(RO)+ sSYNC = 14400 

5308 033430 012705 000106 MOV #70.,R5 

5309 033434 012720 000000 $$10: MOV #0, (RO) + :SECTOR TO VARY 

5310 033440 005305 DEC R5 

Bai) 033442 001374 BNE $$10 

atta :*CLEAR REST OF 256 WORDS THAT IS 54 WORDS OF ZEROS 
5315 033444 012705 000066 MOV #54.,R5 

5316 033450 005020 118: CLR (RO)+ *, 
5317 033452 005305 DEC R5 

asi6 033454 001375 BNE 11$ 

oat *THESE ARE TO BE SET UP FOR DISKLESS USE ONLY 
get 033456 012737 010000 056146 MOV WFMT22,Q#WCYL ta BS 16 BIT WORDS 
5324 033464 012737 000000 056150 $S12: MOV #0, a#WSECTR ‘SECTOR TO VARY 

§325 033472 012737 000025 056152 $813: MOV #21. ,a#WKEY1 :KEY1 TO VARY 

$326 033500 012737 000025 056154 $S14: MOV #21. ,a#WKEY2 KEY2 TO VARY 

§327 033506 012737 000312 056206 MOV #202.,a#FNWORD ;202 DATA WORDS 

§328 033514 004537 047332 JSR R5,aa#CRC sCALCULATE CRC 

5329 033520 056146 WCYL sFIRST WORD 

stn 033522 056156 GCRC :PUT HERE 
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033720 
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005037 


004737 
104401 


000000 
004737 


005737 
001051 


004737 


104401 
000000 


004037 
015230 


00100 


177400 
015220 
000000 
015172 


010000 
161202 
015124 


046160 
005123 


055772 
015124 
046350 
005123 


047020 


033316 


033542 
015146 
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$$15: 


16$: 
17$: 


18$: 


$S2: 
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SECTOR SELECTION 


;*THESE ARE REGULAR SETUPS 


:*THE FOLLOWING INCREMENTS ARE TO CHANGE THE ABOVE SET UP 


#-256. ,aRHWC ;202 DATA, 4 HEADER 
MWRFROM,QRHBA ;FILL BUS ADDRESS 
#0,@RHDST ;SECTOR TO VARY 
Q#WRIFOR,@RHCS1 ;GET READY TO DO 

;WRITE HEADER AND DATA 

;WITH 62 FUNCTION CODE IN RHCS1 
#FMT22,QRHOF 716 BITS PER WORD FORMAT 
@RHCA ;CYLINDER = 0 


a#ERFLGS ;CLEAR ERROR FLAG 
PC ,@#CHECKT 


;STOP THE TEST 


PC ,a#COMWHD :1SSUE 'GO', COUNT SECTOR CLOCKS, 
;WRITE HEADER AND DATA 
a#ERFLGS ;HAVE ANY ERRORS OCCURRED ? 
TS153 ; EXIT fF Ye geowewowsereserscaeesss 
PC ,a#CHECKE ;CHECK THAT DVA,RDY,DPR,DRY = 1 
,CPHALT ;CANNOT CONTINUE IF THEY DON'T 


:STOP THE TEST AND RESTART PROGRAM 


:*NOW COMPARE '‘DISK'' BUFFER WITH ‘'REINTO’’ BUFFER 
J * onemgnoeiin: ; CHECK 


;GOOD BUFFER 
; TEST BUFFER ‘ 
;NUMBER OF WORDS 


;RETURN POINT FOR ERROR HEADER 


;RETURN POINT FOR ERROR DATA 
;RETURN FOR GOOD COMPARISON 


:*TO WRITE ON THE NEXT SECTOR 


a#SS3+2 ;HEADER (SECTOR) 

a#SS4+2 HEADER (KEY1) 

a#essse2 ;HEADER (KEY2) 

a#SS7+2 DATA (SECTOR) 

a#ssi0+2 ;DATA 

a#ssi2+2 ;SECTOR (SIMULATED DISK) 
a#SS13+2 sKEY1 (SIMULATED DISK) 
a#SS14+2 sKEY2 (SIMULATED DISK) 
aassi5+2 ;SECTOR (RHDST) 

a#TAGDTE ;COUNT DOWN FOR 22 SECTORS 
1$ ;BRANCH IF 22 SECTORS NOT DONE 
T$153 ;ALL DONE - GO TO NEXT TEST 


CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T 
,CPHALT ;CANNOT CONTINUE TESTING IF ANY OF THE 
;ABOVE BITS DON'T = 1 OR OTHERS ARE STUCK @ 1 


SEQ 0122 


am 


CZRIHDO,RPO4/5/6 DSKLS CTRLR2 
CZRIHD.P12 01-MAR-79 09:10 


t+] 033734 000137 033266 


MACY11 30A(1052) 
52 


18: 


24-MAY-79 
SECTOR SELECTION 


JMP 


a#ssi 


G 10 
15:07 PAGE 125 


;GO BACK TO NEXT SECTOR 


SEQ 0125 


H 10 
CZRJHDO ,RPO4/5/6 DSKLS pe MACY11 30A(1052) 24-MAY-79 15:07 PAGE 126 


CZRJHD.P12 01-MAR-79 09:10 DATA TRANSFER TESTS USING ECC SEQ 0124 
34 .SBTTL DATA TRANSFER TESTS USING ECC 
5394 
5395 
5396 pp eeeeeeereetereeereeereerereereerreerreereetereerreetreertere ees 
5397 ’ s*TEST 53 WRITE ECC TEST 1 
5398 
5399 :* THIS IS A WRITE ECC TEST 
5400 ;7 WRITE CYLINDERO, FORMAT 16 BITS PER WORD 
$401 3e TRACK 0, SECTOR 1, KEYS 0, NUMBER OF WORDS 256 
sant i OF ALL ZEROS. 
5404 SPREE REET TATA TATA AAT AAA AAA TATE 
5405 033740 000004 TST53: SCOPE 
ene 033742 012706 001000 MOV #STACK,SP sRESET STACK 
5408 033746 012737 000053 017330 MOV #TTNO,QMTSTNM ;THIS SAVES TEST NUMBER 
5409 033754 012700 054630 MOV #SECGAP,RO :POINTER 
5410 033760 012701 000402 MOV #258.,R1 : COUNTER 
5411 033764 012720 177777 1$: MOV #-1,(RO)+ sFILL SIMULATER DISK WITH ONES 
5412 033770 005301 DEC R1 
5413 033772 001374 BNE 1$ 
ate 033774 004737 046116 JSR PC, a#CLDISK sTHIS IS USED TO SET GENERAL REGISTERS 
“s :*THESE ARE FOR ECC TEST ONLY 
5418 034000 012737 177777 015142 MOV #-1,a#TSECC sTHIS 1S AN ECC TEST 
5419 034006 005037 050632 CLR a#POSITI CLEAR ERROR POSITION COUNTER 
5420 034012 013737 050626 050630 MOV @#NCODE ,AMNCOUNT ; TEMPORARY N-CODE COUNTER 
5421 034020 013737 050634 050642 MOV Q@#HARDER,@#HADTMP ; TEMPORARY HARD ERROR COUNTER 
5422 034026 005037 050620 CLR aaGECCl ECC LOW ORDER TO BE GENERATED 
5423 034032 005037 050622 ‘ CLR aaGECC2 ECC HIGH ORDER TO BE GENERATED 
5424 034036 005037 050636 CLR aaDATENV CLEAR DATA ENVELOPE CLOCK COUNT 
434 034042 005037 050640 CLR aa#ZCODE CLEAR LEADING ZEROS CLOCK COUNT 
5427 
5428 
$429 
3e30 :*THESE ARE TO BE SETUP FOR DISKLESS USE ONLY 
3632 034046 012737 010000 056146 MOV #FMT22,Q@WCYL penateee seait WORDS AND 
4 YL 
5434 034054 012737 000001 056150 MOV #1, a#WSECTR sTRACK=0, SECTOR=1 
5435 034062 005037 056152 CLR aeWKEY1 :KEY1= 0 
5436 034066 005037 056154 CLR aMWKEY2 KEY2=0 
5437 034072 012737 000400 056206 MOV #256. ,a#FNWORD a DATA WORDS 
5438 034100 .004537 047332 JSR RS ,aaCRC :GO0 TO CALCULATE CRC 
5439 034104 056146 WCYL 
ese 034106 056156 GCRC 
eng :*THESE ARE REGULAR SETUPS 
44 
5444 034110 012777 177374 160632 MOV #-260. ,aRHWC 3256 DATA WORDS 4 HEADER WORDS 
$445 034116 012700 015220 MOV #WRFEROM,RO THESE TWO INSTRUCTIONS GETS 
$446 034122 010077 160624 MOV RO,@RHBA sADDR. OF WRFROM INTO RO AND 


5447 ;BUS ADDRESS REGISTER 


pew veda DSKLS phe 
12 01-MAR-79 09:10 


CZRJHD.P 


034126 
034132 


034156 


034164 
034170 


034174 
034176 


034202 
034206 
034214 
034220 


034224 
034230 


034232 
034240 
034242 
034244 
034246 
034254 
034256 


034260 
034260 
034264 
034270 


034272 
034276 


012720 
012720 


012777 


004737 
104401 


000000 
013711 
005037 
012777 


005077 
004737 


005737 
001056 


023737 


104031 


004737 
104401 
000000 


004037 
016264 


010000 
000001 


000400 
000000 


000001 


046160 
005123 


015172 


015124 
010000 
160550 
055772 


015124 


050620 


050622 


046350 
005125 


046034 


MACY11 30A(1052) 
153 


2$: 


3$: 


160576 


160552 


055726 


055730 6%: 


7$: 


24-MAY-79 


WRITE ECC TEST 1 


1 10 
15:07 PAGE 127 


SEQ 0125 


MOV WEMT22,(RO)+ cE TL IDE = WORDS 
YL 
MOV #1,(RO)+ :TRACK=0, SECTOR=1, KEYS=0 
CLR (RO) + :KEY1=0 
CLR (RO) + :KEY2=0 
MOV #256.,R5 ; COUNTER 
net bene :MOVE ALL ZEROS FOR DATA 
BNE 3$ ;BRANCH IF DATA NOT COMPLETE 
MOV #1, QRHDST ;TRACK=0 SECTOR=1 
JSR PC ,@#CHECKT CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T 
TYPE ,CPHALT ;CANNOT CONTINUE TESTING IF ANY OF THE 
;ABOVE BITS DON'T = 1 OR OTHERS ARE STUCK @ 1 
HALT ;STOP THE TEST 
MOV Q#WRIFOR, ARI ;GET READY FOR WRITE HEADER AND 
;DATA WITH 62 IN RHCS1 
CLR a#ERFLGS ;CLEAR ERROR FLAG 
MOV #FMT22,QRHOF sFORMAT BIT=1 (16 BIT WORDS) 
CLR @RHCA CYLINDER =0 
JSR PC ,a#COMWHD :WRITE HEADER AND DATA 


:*1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
>*FROM THE ‘'COMWHD'' ROUTINE THAT MEANS ALL HEADER ON DISK 
:*1S GOOD IE. ONLY DATA IS TO BE CHECKED TO SEE IF THEY ARE 
:*ALL ZEROS AND WRITE DATA GAP AND TOLERANCE GAP TO SEE IF 
>*THEY ARE ALL ZEROS 


TST Oa#ERFLGS HAS ANY ERRORS OCCURED? 
:1F WRITE ERROR OCCURS ECC IS NUT CHECKED 
BNE TST54 ;;BRANCH IF YES 


> *COMPARE SOFTWARE GENERATED ECC WITH THAT GENERATED BY HARDWARE 


CMP Q#GECC1,a#WECC1; COMPARE SOFTWARE ECC WITH HARDWARE ECC 

BEQ 6$ ;BRANCH IF GOOD 

ERROR 31 ;LOW ORDER ECC IN ERROR 

BR 7$ ;BRANCH TO CONTINUE 

CMP ANGECC2,a#WECC2;COMPARE SOFTWARE ECC WITH HARDWARE ECC 
7$ ;BRANCH IF GOOD 


BEQ 
ERROR 31 THIGH ORDER ECC IN ERROR 


JSR PC ,a#CHECKE :CHECK THAT DVA,RDY,DPR,DRY = 1 
TYPE ,CPHALT ; CANNOT CONTINUE IF THEY DON'T 
HALT ;STOP THE TEST AND RESTART PROGRAM 


s*FILL “'REINTO'’ BUFFER WITH EXPECTED DATA 
JSR RO,@#CLAREA sFILL REINTO BUFFER 
REINTO FROM 


CZRJHDO,RPO4/5/6 DSKLS CTRLR2 
01-MAR-79 09:10 


CZRJHD.P12 


034300 
034302 


034304 
034312 


034330 


034332 


034336 
034342 
034344 
034346 
034350 
034352 


034354 
034356 


034360 
034362 


0343564 


017262 
000000 
013737 
013737 
004037 
017270 
017324 
000000 


005037 


004037 


034362 
034366 
104007 


000207 
104010 


000207 


050620 017264 
050622 017266 
046034 


015124 


047020 


MACY11 30A(1052) 
153 


4$: 
5$: 


J10 
24-MAY-79 15:07 PAGE 128 


WRITE ECC TEST 1 SEQ 0126 
REINTO+#<255.*2> ;10 
. WORD 0 sDATA 


MOV Q@#GECC1 ,AMREINTO+<256.*2>;FILL ECCI 
MOV O#GECC2 ,AMREINTO+<257.8%2>;FILL ECC2 


JSR RO,@#CLAREA sFILL REST 
REINTO+<258. #2> >FROM 
REINTO#<272.*%2> 3170 

0 ;DATA 

CLR avERFLGS sCLEAR ERROR FLAG 


:*NOW COMPARE ‘‘DISK'' BUFFER WITH "'REINTO"’ 


JSR RO, @#COMPAR ; CHECK 
REINTO ;GOOD BUFFER 
DISK ; TEST BUFFER 
258. ;NUMBER OF WORDS CHECKED 
4$ ;RETURN POINT FOR ERROR HEADER 
5$ ;RETURN POINT FOR ERROR DATA 
TST54 ;RETURN FOR GOOD COMPARISON 
ERROR 7 ;READ ERROR 10 NEXT 
RTS PC ;RETURN TO COMPARE 
ERROR 10 ;WORD NOS 1 TO 256 ARE 
DATA WORDS 
WORD NOS 257 AND 258 
;ARE ECC WHICH ARE CHECKED 
;WORD NOS 259 
31S DATA GAP 
;WORD NOS 260 TO 273 
;ARE TOLERANCE GAP 
RTS PC ;RETURN TO COMPARE 


CZRJHDO,RPO4/5/6 DSKLS Psa 
01-MAR-79 09:10 


CZRJHD.P12 


034366 
034370 


034374 


034402 


034430 


034434 
034436 
034440 


034442 


034446 


034510 


034514 
034522 


000004 
012706 


012737 


012746 


012705 


005020 
005305 
001375 


004737 


012737 


005037 


012737 
112737 


001000 
000054 


000000 
000400 
054726 


000017 


"051414 


177777 


050640 


010000 
000000 


MACY11 30A(1052) 
153 


017330 


015142 


050630 
050642 


053010 
053013 


K 10 
24-MAY-79 hd 07 * PAGE 129 
WRITE ECC TEST 


ppeeeeeererrereeereeeetrrrrrerererrrrrtrrreAeKtetereAeeReKeeeeeeee 


;*TEST 54 READ ECC ENABLED 1A 


BeBe Oe Be Oe oe 
sae eee 


THIS IS AN ECC READ DATA TEST 

ERROR CORRECTION IS ENABLED 

NO ERROR IS INSERTED 

GOOD DATA USED IS 256 WORDS OF 0 

COMMAND IS GIVEN FOR CYLINDER 0 FORMAT 16 BITS PER WORD 
TRACK 0, SECTOR 0 KEYS 0 READ HEADER AND DATA 


SERRA ERATE AAAAA AAA HAAR ARERR ARES 


TST54: 


2$: 


SCOPE 
MOV #STACK,SP RESET STACK 


MOV #TTINO,Q#TSTNM ; THIS SAVES TEST NUMBER 


SETUP FOR WHAT IS TO BE READ 
HEADER CRC IS RESTORED FROM A SUBROUTINE 


MOV #0,-(SP) ;DATA TO BE READ 

MOV #256. ,R5 ; COUNTER 

MOV #D1SK,RO START OF SIMULATED DISK DATA 

MOV atone dpe IN DATA ON TO SIMULATED DISK 


DEC ; COUNT 

BNE 1$ ;BRANCH IF 256 NOT COMPLETE 
TST (SP)+ ;UNDO -(SP) 

CMP (RO)+, (RO) + ; JUMP OVER THE TWO ECC WORDS 
MOV #15.,R5 31 DATA GAP 


3:14 TOLERANCE GAP 


CLR (RO) + ;CLEAR DATA GAP, AND 
DEC R5 ; TOLERANCE GAP 
BNE 2$ :BRANCH IF NOT COMPLETE 


JSR PC ,a#FILLEC ; INSERT THE TWO ECC WORDS ON THE DISK 


7; IN THE CORRECT PLACE 
;*THESE ARE FOR ECC TEST ONLY 


MOV #-1 ,a#TSECC ;THIS 1S AN ECC TEST 

CLR a#POSITI ;CLEAR ERROR POSITION COUNTER 
MOV @#NCODE ,a#NCOUNT ; TEMPORARY N-CODE COUNTER 

MOV @#HARDER,@#HADTMP ; TEMPORARY HARD ERROR COUNTER 
CLR a#GECCl ;ECC LOW ORDER TO BE GENERATED 
CLR a#GECC2 ;ECC HIGH ORDER TO BE GENERATED 
CLR O#DATENV CLEAR DATA ENVELOPE CLOCK COUNT 
CLR a#ZCODE ;CLEAR LEADING ZEROS CLOCK COUNT 


:*THESE ARE TO SETUP FOR DISKLESS USE ONLY 
MOV WEMT22 ,#CYL +4 BITS PER WORD 


INDER 0, FORMAT 16 BITS 
MOVB #O,a#SECOTR+1 STRACK 0 


SEQ 0127 


CZRJHDO ,RPO4/5/6 DSKLS crete 


CZRIHD.P12 


034530 


034572 


034574 


034632 


034640 


034644 
034650 


034654 
034656 


034662 
034666 


034672 


034712 


01-MAR-79 09:10 


ooNN NNN 


005077 


004737 
104401 


000000 
013711 


005037 
004737 


att as 


1 
104032 


000000 


047332 


046116 


010000 


160124 


046160 
005123 


015176 
015124 
052650 


015124 


045616 
015034 


MACY11 30A(1052) 
154 


160142 
160136 


000001 
160126 


L_10 
24-MAY-79 15:07 PAGE 130 


READ ECC ENABLED 1A SEQ 0128 
MOVB #0,a#SECOTR : SECTOR 0 

MOV #0, ake 1=0 

MOV EY2 cat 12: 0 

MOV £256, ANDAWORD’ iNO OF DATA WORDS 

CLR HIS 1S A READ COMMAND 

JSR aS. aaCRC 60 TO CALCULATE CRC 

WCRC 


;*THESE ARE REGULAR SETUPS 


JSR PC ,a#CLDISK ;SETUP GENERAL REGISTERS 
MOV #-256.-4.,aRHWC ;256. DATA 4 HEADER WORDS 
MOV WREINTO,@RHBA ;STARTING ADDRESS OF READ BUFFER 


MOVB #0,-(SP) :1N LOWER BYTE GET SECTOR 
MOVB #0,1(SP) ;GET TRACK IN HIGHER BYTE 
MOV (SP)+, @RHDST ;TRACK/SECTOR IN RHDST 


MOV #FMT22,QRHOF ;16 BITS PER WORD 
;ECC CORRECTION NOT INHIBIT 
;BECAUSE ECC 1S NOT GOING 
:T0 BE CHECKED 


CLR = @RHCA CYLINDER 0 . 
JSR PC, @#CHECKT ;CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T 
TYPE =, CPHALT ZCANNOT CONTINUE TESTING IF ANY OF THE 

ABOVE BITS DON'T = 1 OR OTHERS ARE STUCK a 1 
HALT :STOP THE TEST 
MOV = @#REFOR,, aR ;READ HEADER AND DATA=72 
CLR = AWERFLGS CLEAR ERROR FLAG 
JSR PC, @#COMHD ;READ HEADER AND DATA 


;1F THERE ARE READ ERRORS THEN 
sECC WILL NOT BE CHECKED 


:*1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
;*FROM THE ‘'‘COMHD'' ROUTINE THAT MEANS SECTOR GAP, 
7*FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND 

;*SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY 

7 *DETECTED 

;*HEADER AND DATA ARE TO BE CHECKED. 

*1N CHECKING READ DATA THE WRITE FROM BUFFER 

:*"WRFROM' 1S FILLED WITH EXPECTED BATA AND 
:*COMPARISONS ARE MADE 


TST a#ERFLGS ;ANY ERRORS ALREADY THERE 

BNE TST55 :BRANCH IF YES 

JSR PC ,a#PUTREG : SAVE REGISTERS 

TST a#eER| NO ERRORS SHOULD BE SET 

BEQ 6% TBRANCH IF NO ERRORS SET 

ERROR 32 3352 BIT ECC REGISTER SHOULD BE ZERO 


;ONLY 11 OF THE 32 BITS CAN BE SEEN 
7 IN THE PATERN REGISTER 


m 10 
CZRJHDO,RPO4/5/6 DSKLS piney MACY11 30A(1052) 24-MAY-79 15:07 PAGE 131 


CZRJHD.P12 01-MAR-79 09:10 154 READ ECC ENABLED 1A SEQ 0129 
5657 :DCK SHOULD BE SET IN RHER1 
5658 034714 013746 050620 63: MOV QNGECC1,-(SP) GET PATTERN REGISTER 
5659 034720 042716 174000 BIC #174000, (SP) *KEEP ONLY 11 BITS 
5660 034724 022637 015064 CMP (SP)+,a#EC2 + COMPARE PATTERN REGISTER 
5661 034730 001401 BEQ 7$ ‘BRANCH IF G 
2662 034732 104032 ERROR 32 :11 BITS OF one 32 BIT ECC REGISTER INCORRECT 
5664 
5665 ; 

5666 
5667 :*ADD 16 MAINTENANCE CLOCKS TO 
ree :*BRING EBL DOWN 
5670 034734 012700 000020 7$: MOV #16.,R0 : COUNTER 
5671 034740 052777 000002 160030 8$: BIS #MCLK,@RHMR :SET CLOCK 
5672 034746 042777 000002 160022 BIC #MCLK ,@RHMR sCLEAR CLOCK 
5673 034754 005300 DEC RO : COUNT 
5674 034756 001370 BNE 8$ =BRANCH IF 16 CLOCKS NOT DONE 
5675 034760 004737 046350 JSR PC, a#CHECKE sCHECK THAT DVA,RDY,DPR,DRY = 1 
5676 034764 104401 005123 TYPE »CPHALT sCANNOT CONTINUE IF THEY DON'T 
5677 034770 000000 HALT :STOP THE TEST AND RESTART PROGRAM 
5678 034772 012700 015220 MOV #WREROM,RO “GETTING READY TO FILL EXPECTED DATA 
5679 034776 012720 010000 MOV #O'FMT22,(RO)+ CYLINDER 0 
5680 035002 112746 000000 MOVB = #0, - (SP) : IN LOWER BYTE GET SECTOR 
5681 035006 112766 000000 000001 MOVB #0,1(SP) ‘GET TRACK IN HIGHER BYTE 
5682 035014 012620 MOV (SP)+, (RO)+ :GET TRACK/SECTOR IN BUFFER 
3 035016 012720 000000 MOV #0,(RO)+ :KEY1 IN BUFFER 
5 035022 012720 000000 MOV #0.(RO)+ :KEY2 IN BUFFER 
5685 035026 012701 000400 MOV #256.,R1 “DATA WORD COUNTER 
686 035032 012702 000000 MOV #0,R2 sDATA 
5687 035036 010220 3$: MOV R2,(RO)+ :DATA INTO BUFFER 
5688 035040 005301 DEC R1 > COUNT 
3689 035042 001375 BNE 3$ sBRANCH IF 256 NOT DONE 
5691 
$692 035044 005037 015124 CLR a#ERFLGS sCLEAR ERROR FLAG 
3695 035050 004737 045616 JSR PC, a#PUTREG :SAVE REGISTERS 
5695 
5696 
— :*NOW READ DATA BUFFER WILL BE CHECKED 
5699 035054 004037 047020 JSR RO, a#COMPAR : CHECK 
5700 035060 015220 WRF ROM :GOOD BUFFER 
5701 035062 016264 REINTO sTEST BUFFER 
5702 035064 000404 4+256. sNUMBER OF WORDS CHECKED 
5703 035066 035074 4$ :RETURN POINT FOR ERROR HEADER 
2706 035070 035100 5$ *RETURN POINT FOR ERROR DATA 
3706 035072 035104 TS155 sRETURN FOR GOOD COMPARISON 
5708 035074 104004 4$: ERROR 4 :READ NEXT ERROR 
5709 035076 000207 RTS PC sRETURN TO "'COMPAR'’ 
5710 035100 104005 5$: ERROR 5 s WORD NOS. 1 10 4 ARE 
5711 sHEADER WORDS 
$712 :5 10 360 ARE DATA WORDS 


N 10 
CZRJHDO,RPO4/5/6 DSKLS CTRLR2 MACY11 30A(1052) 2e-may-79 15:07 PAGE 132 
CZRIHD.P12 01-MAR-79 09:10 154 READ ECC ENABLED 1A SEQ 0150 


RN? 035102 000207 RTS PC ;RETURN TO ‘’COMPAR"’ 
5715 


5716 
571 


~ 


B11 
CZRJHDO,RPOS/5/6 DSKLS CTRLR2 MACY11 30A(1052) 24-MAY-79 15:07 PAGE 155 
CZRJHD.P12 01-MAR-79 09:10 154 READ ECC ENABLED 1A SEQ 0151 


ppeteeererrrerrterereererererereeeerertereeeeeeeeeneeetenereeeeeee 


s*TEST 55 READ ECC ENABLED 18 


5719 

5720 

$721 

$722 :* THIS 1S AN ECC READ DATA TEST 

$723 :* ERROR CORRECTION 1S ENABLED 

$724 $e A CORRECTABLE ERROR IS INSERTED IN BIT POSITION 32 

$725 :* GOOD DATA USED IS 256 WORDS OF 0 

5726 3* COMMAND IS GIVEN FOR CYLINDER 0 FORMAT 16 BITS PER WORD 

ates 8 TRACK 0, SECTOR 0 KEYS 0 READ HEADER AND DATA 

5729 pptereerereeeereretrreeetererereeeeteeeeneeKaKeAAeneKReeeeReerenes 

5730 035104 000004 TST55: SCOPE 

are 035106 012706 001000 MOV WSTACK,SP sRESET STACK 

Bee 035112 012737 00C)55 017330 MOV WTINO,@#TSTNM ;THIS SAVES TEST NUMBER 

5735 

5736 :*SETUP FOR WHAT IS TO BE READ 

4a LA s*HEADER CRC 1S RESTORED FROM A SUBROUTINE 

5739 035120 012746 000000 MOV #0,-(SP) DATA TO BE READ 

§740 035124 012705 000400 MOV #256.,R5 : COUNTER 

5741 035130 012700 054726 MOV #DISK,RO START OF SIMULATED DISK DATA 

5742 035134 011620 1$: MOV (SP), (RO)+ MOVE IN DATA ON TO SIMULATED DISK 

5743 035136 005305 DEC RS : COUNT 

5744 035140 001375 BNE 1$ BRANCH IF 256 NOT COMPLETE 

5745 035142 005726 TST (SP) + :UNDO -(SP) 

$746 035144 022020 CMP (RO)+, (RO) + : JUMP OVER THE TWO ECC wORDS 

$747 035146 012705 000017 MOV #15., = R5 :1 DATA GAP 

5748 :14 TOLERANCE GAP 

5749 035152 005020 2$: CLR (RO) + CLEAR DATA GAP, AND 

5750 035154 005305 DEC RS TOLERANCE GAP 

$751 035156 001375 BNE 2$ :BRANCH IF NOT COMPLETE 

3735 

ares 035160 004737 051414 JSR PC ,a#FILLEC : INSERT ECC IN PROPER PLACE ON DISK 

5756 

5757 

3738 :*THESE ARE FOR ECC TEST ONLY 

5760 035164 012737 177777 015142 MOV #-1,a#TSECC sTHIS 1S AN ECC TEST 

5761 035172 005037 050632 CLR a#POSITI CLEAR ERROR POSITION COUNTER 

5762 035176 013737 050626 050630 MOV A@#NCODE,@#NCOUNT ; TEMPORARY N-CODE COUNTER 

5763 035204 013737 050634 050642 MOV Q@#HARDER, @#HADTMP ; TEMPORARY HARD ERROR COUNTER 

$764 035212 005037 050620 CLR avGECcl sECC LOW ORDER TO BE GENERATED 

5765 035216 005037 050622 CLR a#GECC2 sECC HIGH ORDER TO BE GENERATED 

$766 035222 005037 050636 CLR asDATENV CLEAR DATA ENVELOPE CLOCK COUNT 

et 035226 005037 050640 CLR a#ZCODE CLEAR LEADING ZEROS CLOCK COUNT 
6 

5769 

3770 :*THESE ARE TO SETUP FOR DISKLESS USE ONLY 

5772 035232 012737 010000 053010 MOV WEMT22,Q8@CYL 316 BITS PER WORD 

5773 CYLINDER 0, FORMAT 16 BITS 


on 


C11 
CZRJHDO,RPOG/5/6 DSKLS CTRLR2 MACY11 30A(1052) 24-MAY-79 15:07 PAGE 134 


CZRJHD.P12 01-MAR-79 09:10 155 READ ECC ENABLED 18 SEQ 0132 
5774 035240 112737 000000 053013 MOvVB #0, ,a#SECOTR+1 s TRACK O 
$775 035246 112737 000000 053012 MOvB #0,a#SECOTR ‘SECTOR 0 
5776 035254 012737 000000 053014 MOV #0, pee ME sKEY1=0 
$777 035262 012737 000000 053016 MOV #0,a#KEY2 sKEY2=0 
5778 035270 012737 000400 053070 MOV £256... @#DAWORD ;NO. OF DATA WORDS 
5779 035276 005037 053020 CLR s THIS 1S A READ COMMAND 
$780 035302 004537 047332 JSR tte aacRe ‘60 TO CALCULATE CRC 
5781 035306 053010 CYL 
5782 035310 054710 WCRC 
5783 
5784 
5785 :*THIS IS TO INSERT ERROR 
5786 :*THE DISK DATA IS IN LOCATION STARTING FROM ‘DISK' 
5787 s*THE POSITION OF THE ERROR CAN BE CHANGED BY CHANGING 
The, s*THIS MOVE 
5790 035312 012737 100000 054730 MOV #100000,a#D1SK+2 ;FORCE ERROR ON BIT NUMBER 32 
44 4} 3S0 ERROR POSITION REGISTER WILL SHOW 
fad, 035320 012737 000026 035474 MOV #22. ,a#8% s INSERT POSITION REG. 
5795 
ihe :*THESE ARE REGULAR SETUPS 
5798 035326 004737 046116 JSR PC ,a#CLDISK :SETUP GENERAL REGISTERS 
5799 035332 012777 177374 157410 MOV #-256.-4.,QRHWC 3256. DATA 4 HEADER WORDS 
5800 035340 012777 016264 157404 MOV WREINTO,@RHBA ;STARTING ADDRESS OF READ BUFFER 
5801 035346 112746 000000 MOVB #0,-(SP) :IN LOWER BYTE GET SECTOR 
5802 035352 112766 000000 000001 MOVB #0,1(SP) :GET TRACK IN HIGHER BYTE 
5803 035360 012677 157376 MOV (SP)+, @RHDST ;TRACK/SECTOR IN RHDST 
5804 035364 012777 010000 157374 MOV #FMT22,aRHOF :16 BITS PER WORD 
5805 sECC CORRECTION NOT INHIBIT 
5806 sBECAUSE ECC 1S NOT GOING 
5807 TO BE CHECKED 
94 035372 005077 157372 CLR @RHCA s CYLINDER 0 
5810 035376 004737 046160 JSR PC ,a#CHECKT :CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T 
$811 035402 104401 005123 TYPE ,CPHALT CANNOT CONTINUE TESTING IF ANY OF THE 
5812 ;ABOVE BITS DON'T = 1 OR OTHERS ARE STUCK a 1 
Hh 035406 000000 HALT sSTOP THE TEST 
4 
$815 035410 013711 015176 MOV O#REFOR, ARI READ HEADER AND DATA=72 
5816 035414 005037 015124 CLR a#ERFLGS CLEAR ERROR FLAG 
5817 035420 004737 052650 JSR PC, a#COMHD ;READ HEADER AND DATA 
5818 :1F THERE ARE READ ERRORS THEN 
5819 ECC WILL NOT BE CHECKED 
st 
5822 :*1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
5823 :*FROM THE "COMHD'' ROUTINE THAT MEANS SECTOR GAP, 
5824 s*FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND 
5825 :*SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY 
5826 : DETECTED 
$827 S*HEADER AND DATA ARE TO BE CHECKED. 
5828 s*]N CHECKING READ DATA THE WRITE FROM BUFFER 


5829 :#'WREROM' 1S FILLED WITH EXPECTED DATA AND 


on 


CZRIHDO ,RPO4/5/6 DSKLS Crate 


CZRIHD.P12 01-MAR-79 09:1 

5830 

5831 

5832 035424 005737 015124 
5833 035430 001077 

5834 035432 004737 045616 
5835 035436 022737 100000 
5836 035444 001401 

5837 035446 104032 

5838 

5839 

5840 

5841 

5842 035450 013746 050620 
5843 035454 042716 174000 
5844 035460 022637 015064 
5845 035464 001401 

H+ 94 035466 104032 

5848 035470 004037 051242 
5849 035474 000026 

5850 

5851 

5852 

5855 

5854 035476 004737 046350 
5855 035502 104401 0051235 
5856 035506 000000 

5857 035510 012700 015220 
5858 035514 012720 010000 
5859 035520 112746 000000 
5860 035524 112766 000000 
$861 035532 012620 

5862 035534 012720 000000 
5863 035540 012720 000000 
5864 035544 012701 000400 
5865 035550 012702 000000 
5866 035554 010220 

5867 035556 005301 

5868 035560 001375 

5869 

5870 

5871 

5872 035562 012737 100000 
5875 

5874 

5875 

5876 035570 005037 015124 
5877 035574 004737 045616 
5878 

5879 

5880 

5881 

$882 035600 004037 047020 
5885 035604 015220 

5884 035606 016264 

5885 035610 000404 


MACY11 30A(1052) 
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015034 


000001 


015232 


6$: 


7$: 
8$: 


3$: 


dD 11 
24-MAY=79 15:07 PAGE 155 
READ ECC ENABLED 18 SEQ 0135 


; *COMPARISONS ARE MADE 


TST a#ERFLGS ;ANY ERRORS ALREADY THERE 

BNE TST56 ;BRANCH IF YES 

JSR PC ,a#PUTREG ; SAVE REGISTERS 

CMP WOCK ,a#ERI ONLY DATA CHECK ERROR SHOULD BE SET 
BEQ é$ ;BRANCH IF YES 

ERROR 32 32 BIT ECC REGISTER SHOULD BE NON 


[ONLY 11 OF THE 32 BITS CAN BE SEEN 
7 IN THE PATERN REGISTER 
;DCK SHOULD BE SET IN RHERI 

MOV Q@4GECC1,-(SP)  ;GET PATTERN REGISTER 


BIC #174000, (SP) KEEP ONLY 11 BITS 

CMP (SP)+,aw#ECe ; COMPARE PATTERN REGISTER 

BEQ 7$ ;BRANCH IF GOOD 

ERROR 32 311 BITS OF THE 32 BIT ECC REGISTER INCORRECT 
JSR RO, a#ECORR :GO TO ECC CORRECTION PROCESS 

22. EXPECTED POSITION REG. WHEN CORRECTION 


;iS COMPLETE 


JSR PC ,a#CHECKE ;CHECK THAT DVA,RDY,DPR,DRY = 1 

TYPE »CPHALT ;CANNOT CONTINUE IF THEY DON'T 

HALT ;STOP THE TEST AND RESTART PROGRAM 
MOV #WREROM,RO ;GETTING READY TO FILL EXPECTED DATA 


MOV WO!FMT22, (RO)+ ;CYLINDER 0 
;1N LOWER BYTE GET SECTOR 
GET TRACK IN HIGHER BYTE 


MOV (SP)+, (RO)*  ;GET TRACK/SECTOR IN BU'FER 
MOV #0, (RO)+ ;KEY1 IN BUFFER 

MOV #0,(RO)+ sKEY2 IN BUFFER 

MOV #256., RI ;DATA WORD COUNTER 

MOV #0,R2 


;DATA 
MOV + (RO) + sDATA INTO BUFFER 

COUNT 
BNE 5s BRANCH IF 256 NOT DONE 
:*ONLY GOOD DATA HAS BEEN PUT IN ‘WRFROM' 


;*NOW THE INSERTED ERROR WILL BE PUT IN 
MOV #100000 ,a#WRFROM+<5*2> ; INSERTED ERROR 


CLR avERFLGS ;CLEAR ERROR FLAG 
JSR PC ,a#PUTREG ;SAVE REGISTERS 


;*NOW READ DATA BUFFER WILL BE CHECKED 
JSR RO, a#COMPAR ; CHECK 


WRF ROM ; GOOD oh 
REINTO ; TEST BUFFER 
4+256. ‘NUMBER Of WORDS CHECKED 





Ono 


CZRJHDO ,RPO4/5/6 DSKLS CTRLR2 
CZRIJHD.P12 01-MAR-79 09:10 


5886 035612 035620 
5887 035614 035624 


5889 035616 035630 
5891 035620 104004 


5892 035622 000207 
5893 035624 104005 


5896 035626 000207 


MACY11 30A(1052) 
155 


4$: 
5$: 


24-MAY-79 
READ ECC ENABLED 18 


—E 11 
15:07 PAGE 136 
;RETURN POINT FOR ERROR HEADER 
RETURN POINT FOR ERROR DATA 
;RETURN FOR GOOD COMPARISON 


;READ NEXT ERROR 
;RETURN TO ‘‘COMPAR"’ 


;WORD NOS 1 TO 4 ARE 
eS WORDS 

:5 TO 260 ARE abd WORDS 
;RETURN TO ‘‘COMPAR 


SEQ 0134 


aon 





CZRJHDO,RP04/5/6 DSKLS CTRLR2 


CZRJHD.P12 


035630 
035632 


035636 


035644 


035672 


035676 
035700 
035702 


035704 


035710 


035752 


035756 
035764 


01-MAR-79 09:10 


000004 
012706 


012737 


005020 
005305 
001375 


004737 


012737 
112737 


001000 
000056 


000000 
000400 
054726 


000017 


051414 


177777 


050640 


010000 
000000 


MACY11 


017330 


015142 


050630 
050642 


053010 
053013 


F 11 
15:07 PAGE 157 


30A(1052) 24-MAY-79 
155 READ ECC ENABLED 18 
sp eeteeererererrererrerererrereereretererererenereneneeeeeneeeeeee 
s*TEST 56 READ ECC ENABLED IC 
» THIS 1S AN ECC READ DATA TEST 
* ERROR CORRECTION 1S ENABLED 
* A NON CORRECTABLE ERROR IS INSERTED IN BIT POSITION 21 THRU 32 
ge GOOD DATA USED 1S 256 WORDS OF 0 
he COMMAND IS GIVEN FOR CYLINDER 0 FORMAT 16 BITS PER WORD 
.* TRACK 0, SECTOR 0 KEYS 0 READ HEADER AND DATA 
sp eeeeeeeeeeeeeeerereeerterererererereeeeAeKeeeeteekKeKeeereneeese 
TST56: SCOPE 
MOV WSTACK,SP ;RESET STACK 
MOV #TTINO,@#TSTNM = ; THIS SAVES TEST NUMBER 
: SETUP FOR WHAT IS TO BE READ 
: HEADER CRC 1S RESTORED FROM A SUBROUTINE 
MOV #0,-(SP) ;DATA TO BE READ 
MOV #256. ,R5 ; COUNTER 
MOV #O1SK,RO START OF SIMULATED DISK DATA 
1$ MOV (SP), (RO)+ :MOVE IN DATA ON TO SIMULATED DISK 
DEC R5 ; COUNT 
BNE 1$ :BRANCH IF 256 NOT COMPLETE 
TST (SP)+ :UNDO =(SP) 
CMP (RO)+,(RO)+ ; JUMP OVER THE TWO ECC WORDS 
MOV #15. ,R5 i! DATA GAP 
314 TOLERANCE GAP 
23: CLR (RO)*+ :CLEAR DATA GAP, AND 
DEC R5 ; TOLERANCE GAP 
BNE 2$ ;BRANCH IF NOT COMPLETE 
JSR PC ,a#FILLEC ; INSERT THE TWO ECC WORDS ON THE DISK 
IN THE CORRECT PLACE 
;*THESE ARE FOR ECC TEST ONLY 
MOV #-1,a#TSECC :THIS IS AN ECC TEST 
CLR a#POSITI ;CLEAR ERROR POSITION COUNTER 
MOV @#NCODE ,AMNCOUNT ; TEMPORARY N-CODE COUNTER 
MOV @#HARDER,@#HADTIMP ; TEMPORARY HARD ERROR COUNTER 
CLR. avGECC! ECC LOW ORDER TO BE GENERATED 
CLR a#GECC2 ;ECC HIGH ORDER TO BE GENERATED 
CLR @*DATENV ;CLEAR DATA ENVELOPE CLOCK COUNT 
CLR a#ZCODE CLEAR LEADING ZEROS CLOCK COUNT 
s* THESE ARE TO SETUP FOR DISKLESS USE ONLY 
MOV WFMT22,Q8CYL 316 BITS PER WORD 
sCYLINDER 0, FORMAT 16 BITS 
MOVB #0,aMSECOTR*1 ; TRACK 0 : 


on 


ew: + weal * DSKLS CTRLR2 
CZRJ 12 01-MAR-79 09:10 


HD .P 


035772 


036034 


036036 


036044 


036052 


036110 


036116 
036122 
036126 


036132 
036134 
036140 
036144 


ocooooo°0°o— 
ooNN NN 


012737 


012737 


005077 
004737 
104401 


000000 
013711 
005037 
004737 


000000 


047332 


177760 


010040 


046116 
177374 


010000 


156646 
046160 
005123 


015176 
015124 
052650 


MACY11 30A(1052) 
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054730 


036220 


156664 
156660 


000001 
156650 


24-MAY- 


:*THIS 1S TO INSERT ERROR 


G6 11 
-79 15: * PAGE 138 
READ ECC ENABLED 1C 


#0 ,a#SECOTR 


#0, a 
#0,a 
1250. OF 
aax 
R5,a#CRC 


1 
EY2 
DAWORD 


sey ie 0 

;KEY1=0 

KEY2=0 

:NO. OF DATA WORDS 

; THIS 1S A READ COMMAND 


:GO TO CALCULATE CRC 


:*THE DISK DATA IS IN LOCATION STARTING FROM ‘DISK’ 
visa OF THE ERROR CAN BE CHANGED BY CHANGING 
3*TH MOV 


MOV 


MOV 


3; * THESE 


#177760 ,a#DISK+2 


#4128.,a 


#8$ 


;FORCE ERROR ON BIT NUMBER 21 THRU 32 


:$0 ERROR POSITION REGISTER WILL SHOW 
‘INSERT POSITION REG. 


ARE REGULAR SETUPS 


PC ,a#CLD 


#-256.-4. 
,@RHBA 


#WREINTO 
#0,-(SP) 
#0,1(SP) 
{SP)+, 

#FMT22,a 


@RHCA 

PC ,a#CHE 
,CPHALT 
O#REFOR 


avERFLGS 
mC, 


ISK 
,@RHWC 


@RHDST 
RHOF 


CKT 


aR 


a#COMHD 


;SETUP GENERAL REGISTERS 

3256. DATA 4 HEADER WORDS 

STARTING ADDRESS OF READ BUFFER 

:1N LOWER BYTE GET SECTOR 

;GET TRACK IN HIGHER BYTE 

; TRACK/SECTOR IN RHDST 

;16 BITS PER WORD 

ECC CORRECTION NOT INHIBIT 

s;BECAUSE ECC IS NOT GOING 

;T0 BE CHECKED 

CYLINDER 0 

;CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T 
;CANNOT CONTINUE TESTING IF ANY OF THE 
;ABOVE BITS DON'T = 1 OR OTHERS ARE STUCK @ 1 
;STOP THE TEST 

;READ HEADER AND DATA=72 

; CLEAR ERROR FLAG 

;READ HEADER AND DATA 

;1F THERE ARE READ ERRORS THEN 

sECC WILL NOT BE CHECKED 


SEQ 0136 | 


eos egal * DSKLS me 
CZRJ 12 01-MAR-79 09:10 


HD .P 


036150 


036172 


036174 
036200 
036204 
036210 
036212 


036214 
036220 


036222 
036226 


036234 
036236 


036240 


036316 


005737 


104032 


013746 
042716 
022637 
001401 
104032 


004037 
000000 


004737 
022737 


001401 
104036 


015124 


045616 
100000 


050620 
174000 
015064 


051242 


045616 
100100 


046350 
005123 


015220 
010000 
000000 
000000 


000000 


000000 


MACY11 30A(1052) 
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015034 


015034 


000001 


6$: 


7$: 
8$: 


9$: 


3$: 


H 11 
24-MAY-79 15: “ PAGE 139 


READ ECC ENABLED IC 


:*1f THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
>FROM THE ‘‘COMHD'’ ROUTINE THAT MEANS SECTOR GAP, 
T*FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND 
:*SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY 


: DETECTED 


;*HEADER AND DATA ARE TO BE CHECKED. 
>*IN CHECKING READ DATA THE WRITE FROM BUFFER 
;*’WREROM IS FILLED WITH EXPECTED DATA AND 


> *COMPARISONS ARE MADE 
TST a#ERFLGS 
TS157 


BNE $15 

JSR PC, ,a#PUTREG 
CMP #OCK AMER] 
BEQ 6$ 

ERROR 32 

MOV a@#GECC1,-(SP) 

BIC #174000, (SP) 
CMP (SP)+,a#EC2 

BEQ 7$ 

ERROR 32 

JSR RO,a#ECORR 
WORD 

JSR PC ,@#PUTREG 
CMP WOCKIECH,aMER! 

BEQ 9$ 

ERROR 56 

JSR PC ,a#CHECKE 
TYPE CPHALT 

HALT 

MOV #WREROM,RO 
MOV MO!FMT22,(RO)* 


MOVB #0,-(SP) 
MOVB #0,1(SP) 


MOV (SP)+,(RO)¢ 
MOV #0, (RO)* 
MOV #0, (RO)¢ 
MOV #256.,R1 
MOV #0,R2 

MOV R2,(R0)* 


;ANY ERRORS ALREADY THERE 
;BRANCH IF YES 
;SAVE REGISTERS 


;ONLY DATA CHECK ERROR SHOULD BE SET 
BRANCH IF YES 
+ oe ECC REGISTER SHOULD BE NON 


ONLY 11 OF THE 32 BITS CAN BE SEEN 
7 1N THE PATERN REGISTER 


:DCK SHOULD BE SET IN RHERI 

:GET PATTERN REGISTER 

KEEP ONLY 11 BITS 

; COMPARE PATTERN REGISTER 

;BRANCH IF GOOD 

:11 BITS OF THE 32 BIT ECC REGISTER INCORRECT 


:G0 TO ECC CORRECTION PROCESS 
EXPECTED POSITION REG. WHEN CORRECTION 
;1S COMPLETE 


> SAVE REGISTERS 

sWITH ERRORS INSERTED IN BIT POSITION 21 
sTHRU 32 HARD ERROR BIT SHOULD SET 

sBRANCH IF GOOD 

sWITH ERROR INSERTED IN BIT POSITION 21 THRU 
:32 ECH SHOULD SET 


sCHECK THAT DVA,RDY,DPR.DRY = 1 
sCANNOT CONTINUE IF THEY DON'T 
;STOP THE TEST AND RESTART PROGRAM 
sGETTING READY TO FILL EXPECTED DATA 
s CYLINDER 0 

:IN LOWER BYTE GET SECTOR 

:GET TRACK IN HIGHER BYTE 

sGET TRACK/SECTOR IN BUFFER 

sKEY] IN BUFFER 

;KEY2 IN BUFFER 

;DATA WORD COUNTER 


;DATA 
;DATA INTO BUFFER 


SEQ 01357 


aon 


CZRJHDO,RPOG/5/6 DSKLS CTRLR2 
CZRJHD.P12  O1-MAR-79 09:10 


6053 036320 005301 
pet 036322 001375 


MACY11 30A(1052) 
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1 11 
24-MAY-79 15:07 PAGE 140 
READ ECC ENABLED IC 


DEC R1 


; COUNT 
BNE 3$ ;BRANCH IF 256 NOT DONE ° 


td 


SEQ 0138 


Jv 
CZRJHDO,RPOG/5/6 DSKLS CTRLR2 MACY! — 24-MAY-79 15:07 PAGE 141 


CZRIHD.P12 01-MAR-79 09:10 READ ECC ENABLED IC . SEQ 0139 
6056 ONLY GOOD DATA HAS BEEN PUT IN “WRFROM' 
etd ;*NOW THE INSERTED ERROR WILL BE PUT IN 
re te 036324 012737 177760 015232 MOV #177760 ,a#WRFROM*+<S*2> ; INSERTED ERROR 
6061 
6062 
6063 036332 005037 015124 CLR asERFLGS 7 CLEAR ERROR FLAG 
ee: 036336 004737 045616 JSR PC ,a#PUTREG ;SAVE REGISTERS 
6066 
ret 4 s*NOW READ DATA BUFFER WILL BE CHECKED 
6069 036342 004037 047020 JSR RO, a#COMPAR ; CHECK 
6070 036346 015220 WRFROM ;GOOD BUFFER 
6071 036350 016264 REINTO ; TEST BUFFER 
6072 036352 000404 4+256. ;NUMBER OF WORDS CHECKED 
6073 036354 036362 4% ;RETURN POINT FOR ERROR HEADER 
rete 036356 036366 5$ ;RETURN POINT FOR ERROR DATA 
ret 036360 036372 1S157 ;RETURN FOR GOOD COMPARISON 
6078 036362 104004 4$: ERROR 4% ;READ NEXT ERROR 
6079 036364 000207 RTS PC RETURN TO ‘‘COMPAR"' 
6080 036366 104005 5$: ERROR 5 ;WORD NOS 1 TO 4 ARE 
6081 ;HEADER WORDS 
6082 35 TO 260 ARE DATA WORDS 
6083 036370 000207 RTS PC ;RETURN TO ‘’COMPAR™’ 
6084 
6085 
6086 
6087 
6088 


CZRJHDO,RPO4/5/6 DSKLS Crus 


CZRIHD.P12 


036372 
036374 


036400 


036424 


036430 


036472 


036476 
036504 


036540 
036546 
036552 
036556 


036562 


01-MAR-79 09:1 


004737 


012737 


005037 


012737 
012737 


001000 
000057 


054630 
000460 


044116 


177777 


050640 


010000 
000001 


047332 


177374 
015220 
156174 
010000 


000001 


MACY11 30A(1052) 
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017330 


015142 


050630 
050642 


056146 
056150 


056206 


156202 


sy; ereerrerereeeerererererererentreererereneneeeeeeeeeneneeerenees 


K 11 
24-MAY-79 15:07 PAGE 
READ ECC ENABLED 1C 


s*TEST 57 


**H#eeeeretereteeerereererererererererreteretetaneeeaeteneeeneeeee 


18: 


2$: 


18157: 


THIS IS 


WRITE ECC TEST 2 
A WRITE ECC TEST 


WRITE CYLINDER 0, FORMAT 
SECTOR 1, KEYS 0, NUMBER OF WORDS 256 
OF ALL ONES. 


TRACK 0, 


SCOPE 


MOV 


STACK ,SP sRESET STACK 

#TTNO,a#TSTNM dant SAVES TEST NUMBER 

#SECGAP ,RO :POINTER 

#304., ; COUNTER 

(RO) + ;CLEAR SIMULATED DISK AREA 

fr 

PC,CLDISK sTHIS IS USED TO SET GENERAL REGISTERS 


ARE FOR ECC TEST 


#-1,a#TSECC 
a#POSsiTl 

@#NCODE ,@#NCOUNT 
@#HARDER ,@#HADTMP 
a#GECCl 
a#GECC2 
@#DATENV 
a#ZCODE 


142 


16 BITS PER WORD 


ONLY 


:THIS IS AN ECC TEST 
;CLEAR ERROR POSITION COUNTER 

; TEMPORARY N-CODE COUNTER 

; TEMPORARY HARD ERROR COUNTER 
;ECC LOW ORDER TO BE GENERATED 
;ECC HIGH ORDER TO BE GENERATED 
;CLEAR DATA ENVELOPE CLOCK COUNT 
;CLEAR LEADING ZEROS CLOCK COUNi 


ARE TO BE SETUP FOR DISKLESS USE ONLY 


WEMT22 ,Q#WCYL 


;FORMAT22=16B1T WORD 


;CYLINDER 0 


#1 ,Q#WSECTR 
a*wKEY! 
a#WKEY2 

#256. ,a#FNWORD 
R5,a#CRC 


ARE REGULAR SETUP 


#-260. ,aRHWC 
#WRFROM,RO 
RO,@RHBA 


EKEVI=0 SECTOR=1 


KEY! 
KEY2=0 
ai DATA WORDS 
:GO TO CALCULATE CRC 


$s 


BUS ADDRESS REGISTE 


WEMT22,(RO)+ 
#1,(RO)+ 


Cae hy BIT WORDS 
;CYLINDER=0 
; TRACK= O SECTOR=1, 


S AND 


3256 DATA WORDS 4 HEADER WORDS 
; THESE TWO INSTRUCTIONS GETS 
;ADDR. OF WRFROM INTO RO AND 


KEYS=0 


SEQ 6140 


an 


CZRJHDO,RPO4/5/6 DSKLS crus 


CZRIHD.P12 


036614 
036620 
036624 
036626 
036650 
036654 


036660 


036662 


036706 


036710 
036710 


036732 


005020 


012777 


004737 
104401 


000000 
013711 
005037 


004737 


005737 
001056 


023737 


104031 


004737 
104401 
000000 


004037 


177777 


01-MAR-79 09 


000400 
177777 


000001 


046160 
005123 


015172 
015124 


055772 


015124 


050620 


050622 


040350 
005123 


046034 


MACY11 —. 
157 


3$: 


156146 


156122 


055726 


055730 6$: 


7$: 





L 11 
alts bia -79 15:07 PAGE 143 


ITE ECC TEST 2 SEQ 0141 
CLR (RO)+ sKEY1=0 
CLR (RO)+ op he 
MOV #256. ,R5 ; COUNTER 
oat “eee ;MOVE ALL ONES FOR DATA 
BNE 3$ BRANCH IF DATA NOT COMPLETE 
MOV #1, QRHDST ; TRACK=0 SECTOR=1 
JSR PC ,a#CHECKT CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T 
TYPE ,CPHALT ;CANNOT CONTINUE TESTING IF ANY OF THE 
;ABOVE BITS DON'T = 1 OR OTHERS ARE STUCK @ 1 
HALT STOP THE TEST 
MOV @#WRIFOR, ARI ;GET READY FOR WRITE HEADER AND 
DATA WITH + IN RHCS1 
CLR a#ERFLGS ;CLEAR ERROR FLAG 
MOV aby ge @RHOF FORMAT BIT=1 (16 BIT WORDS) 
CLR @RH CYLINDER =0 


JSR wm. NOACOMWHD :WRITE HEADER AND DATA 


;*1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
>FROM THE ‘‘COMWHD'' ROUTINE THAT MEANS ALL HEADER ON DISK 
;*1S GOOD IE. ONLY DATA 1S TO BE CHECKED TO SEE IF THEY ARE 
;*ALL ONES AND WRITE DATA GAP AND TOLERANCE GAP TO SEE IF 
:*THEY ARE ALL ZEROS 


TST a#ERFLGS ;HAS ANY ERRORS OCCURED? 


;1F WRITE ERROR OCCURS ECC IS NOT CHECKED 
BNE TST60 ;;BRANCH IF YES 


> *COMPARE SOFTWARE GENERATED ECC WITH THAT GENERATED BY HARDWARE 
CMP Q#GECC1,a#WECC1; COMPARE SOFTWARE ECC WITH HARDWARE ECC 


BEQ 6$ BRANCH IF GOOD 

ERROR 31 ;LOW ORDER ECC IN ERROR 

BR 7$ ;BRANCH TO CONTINUE 

CMP ANGECC2,a#WECC2;COMPARE SOFTWARE ECC WITH HARDWARE ECC 
BEQ 7$ ;BRANCH IF GOOD 

ERROR 31 :HIGH ORDER ECC IN ERROR 

JSR PC ,a#CHECKE :CHECK THAT DVA,RDY,DPR,DRY = 1 

TYPE -CPHALT CANNOT CONTINUE IF THEY DON'T 

HALT ;STOP THE TEST AND RESTART PROGRAM 


FILL “'REINTO’’ BUFFER WITH EXPECTED DATA 
JSR RO,@#CLAREA ei REINTO BUFFER 


REINTO zFR 
REINTO#+<255.#2> ;10 
-WORD 1 sDATA 


ame 


CZRJHDO,RPO4/5/6 DSKLS phy 


CZRIHD.P12 


037002 
037004 
037006 


037010 
037012 


037014 


01-MAR-79 09:1 


3737 050620 017264 
3737 tees 017266 


017324 
000000 


005037 015124 
004037 . 047020 
016264 


037012 
037016 
104007 


000207 
104010 


000207 


MACY11 oe 
157 


4$: 
5$: 


Ait 
alte tcz -79 15:07 PAGE 144 
ITE ECC TEST 2 


MOV QNGECC1 AMREINTO+<256.*2>;FILL ECC 
MOV QNGECC2 .aMREINTO+<257.*2>:FILL ECC 
JSR RO, @#CLAREA SFILL REST 

RE INTO*#<258. #2> : FROM 

RE INTO#<272.*#2> 3:10 

9 DATA 


1 
2 


CLR a#ERFLGS ; CLEAR ERROR FLAG 


;*NOW COMPARE ‘DISK’ BUFFER WITH ‘'REINTO™ 


JSR RO, a# COMPAR ; CHECK 

REINTO ;GOOD BUFFER 

DISK TEST BUFFER 

258. ;NUMBER OF WORDS CHECKED 

4$ ;RETURN POINT FOR ERROR HEADER 
5$ RETURN POINT FOR ERROR DATA 
TST60 RETURN FOR GOOD COMPARISON 
ERROR 7 ;READ ERROR 10 NEXT 

RTS PC ;RETURN TO COMPARE 

ERROR 10 ;WORD NOS 1 TO 256 ARE 


DATA WORDS 


sWORD NOS 257 AND 258 
;ARE ECC WHICH ARE CHECKED 


;WORD NOS og 
1S DATA 


GAP 
:WORD NOS 260 TO 273 


;ARE TOLERANCE GAP 
RTS PC ;RETURN TO COMPARE 


SEQ 0142 


CZRIHDO ,RPO4/5/6 DSKLS yy 


CZRIHD.P12 


037016 
037020 


037024 


037032 


037060 


037064 
037066 
037070 


037072 


037076 


037140 


037144 
037152 


01-MAR-79 09 


000004 
012706 


012737 


012705 
005020 


005305 
001375 


004737 


012737 
112737 


001000 
000060 


177777 
000400 
054726 


000017 


051414 


177777 


050640 


010000 
000000 


MACY11 30A(1052) 
157 


017330 


015142 


050630 
050642 


053010 
053013 


24-MAY-79 


WRITE ECC TEST 2 


N11 
15:07 PAGE 145 


SEQ 0145 


pp etrereereereerrrrerrererrerererrererereereneneneeeeeerereeeeeee 


:*TEST 60 


READ ECC ENABLED 2A 


THIS IS AN ECC READ DATA TEST 
ERROR CORRECTION i ENABLED 
NO ERROR IS INSERTED 

GOOD DATA USED IS 256 WORDS OF 177777 

COMMAND 1S GIVEN FOR CYLINDER 0 FORMAT 16 BITS PER WORD 


READ HEADER AND DATA 


pp etterererererererereeererererereesereeeaKeneteeeeeKeeAeKeT eee ee 


TST60: 


2$: 


TRACK 0, SECTOR 0 KEYS 0 
SCOPE 

MOV #STACK,SP 

MOV #TTNO,@aTSTNM 


RESET STACK 
THIS SAVES TEST NUMBER 


SETUP FOR WHAT IS TO BE READ 
HEADER CRC 1S RESTORED FROM A SUBROUTINE 


JSR 


> * THESE 


3; * THESE 
MOV 
MOVB 


#-1,-(SP) 
#256. ,R5 
#D1SK,RO 
(SP), (RO)+ 
R5 


1$ 
(SP)+ 
(RO)+,(RO)+ 


(RO) + 
R5 
2$ 


PC ,a#FILLEC 


;DATA TO BE READ 

; COUNTER 

START OF SIMULATED DISK DATA 
;MOVE IN DATA ON TO SIMULATED DISK 


; COUNT 

;BRANCH IF 256 NOT COMPLETE 
;UNDO -(SP) 

:JUMP OVER THE TWO ECC WORDS 
31 DATA GAP 

314 TOLERANCE GAP 

:CLEAR DATA GAP, AND 

; TOLERANCE GAP 

;BRANCH IF NOT COMPLETE 


; INSERT THE TWO ECC WORDS ON THE DISK 
IN THE CORRECT PLACE 


ARE FOR ECC TEST ONLY 


#-1 ,a#TSECC 


:THIS 1S AN ECC TEST 


a#POSITl ;CLEAR ERROR POSITION COUNTER 
@#NCODE ,AMNCOUNT ; TEMPORARY N-CODE COUNTER 
Q#HARDER,@#HADTMP ; TEMPORARY HARD ERROR COUNTER 
a#GECC ;ECC LOW ORDER TO BE GENERATED 
asGECC2 ;ECC HIGH ORDER TO BE GENERATED 
Oa DATENV ;CLEAR DATA ENVELOPE CLOCK COUNT 
a#ZCODE CLEAR LEADING ZEROS CLOCK COUNT 


ARE TO SETUP FOR DISKLESS USE ONLY 


WEMT22,Q8CYL 
#0,a#SECOTR+1 


16 BITS PER WORD 
:CYLINDER 0, FORMAT 16 BITS 
STRACK 0 


on 


CZRIHDO ,RPO4/5/6 DSKLS Crete 


CZRJHD.P12 


oooo°c[eoo 
mn —Oonee 
NMOLONFfeo 


037262 


037270 


037274 
037300 


037304 
037306 


037312 
037316 


01-MAR-7 


ooooo°oo— 
oon 


005077 


004737 
104401 


0C0000 
013711 


005037 
004737 


1 
104032 


9 09:1 


000000 


047332 


046116 


010000 


155474 


046160 
005123 


015124 


045616 
015034 


MACY11 30A(1052) 
760 


B 12 
24-MAY-79 15:07 PAGE 146 
READ ECC ENABLED 2A 


MOVB #0,a#SECOTR ; SECTOR 0 


MOV #0, ane KEY SKEY1=0 
MOV EY2 SKEY2=0 
MOV £25. MS POAUORD ;NO. OF DATA WORDS 
CLR THIS 1S A READ COMMAND 
Isr s. aycre “G0 TO CALCULATE CRC 
YL 
WCRC 


;*THESE ARE REGULAR SETUPS 


JSR PC ,a#CLDISK ;SETUP GENERAL REGISTERS 
MOV #-256.-4.,@RHWC ;256. DATA 4 HEADER WORDS 
MOV WREINTO,@RHBA ;STARTING ADDRESS OF READ BUFFER 
MOVB #0,-(SP) IN LOWER BYTE GET SECTOR 
MOVB #0,1(SP) ;GET TRACK IN HIGHER BYTE 
MOV (SP)+,@RHDST ; TRACK/SECTOR IN RHDST 
MOV #FAT22 ,@RHOF ;16 BITS PER WORD 
ECC CORRECTION NOT INHIBIT 
;BECAUSE ECC 1S NOT GOING 
;TO BE CHECKED 


CLR @RHCA CYLINDER 0 
JSR PC ,a#CHECKT CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T 
TYPE CPHALT ;CANNOT CONTINUE TESTING IF ANY OF THE 

;ABOVE BITS DON'T = 1 OR OTHERS ARE STUCK @ 1 
HALT ;STOP THE TEST 
MOV @#REFOR ,aR1 ;READ HEADER AND DATA=72 


CLR a#ERFLGS 
JSR PC ,a#COMHD 


;CLEAR ERROR FLAG 

;READ HEADER AND DATA 

;1F THERE ARE READ ERRORS THEN 
;ECC WILL NOT BE CHECKED 


:*1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
7*FROM THE ‘'COMHD'’ ROUTINE THA’ MEANS SECTOR GAP, 
*FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND 

:*SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY 

; *DETECTED 

s*HEADER AND DATA ARE TO BE CHECKED. 

7*IN CHECKING READ DATA THE WRITE FROM BUFFER 

p*‘WREROM' IS FILLED WITH EXPECTED DATA AND 
;*COMPARISONS ARE MADE 


TST a#ERFLGS ;ANY ERRORS ALREADY THERE 


BNE TST61 ;BRANCH IF YES 

JSR PC ,a#PUTREG ;SAVE REGISTERS 

TST aveER| ;NO ERRORS SHOULD BE SET 

BEQ 6$ ;BRANCH IF NO ERRORS SET 

ERROR 52 332 BIT ECC REGISTER SHOULD BE ZERO 


SONLY 11 OF THE 32 BITS CAN BE SEEN 
7 IN THE PATERN REGISTER 


SEQ 0144 


| 


CZRIRDO,RPO4/5/6 DSKLS phe 
CZRJHD.P12 01-MAR-79 09:10 


037344 013746 050620 
037350 042716 174000 
6356 Tite: 022637 015064 
037 


362 104032 


6366 037364 012700 000020 
6367 037370 052777 000002 
6368 037376 042777 000002 


6371 037410 004737 046350 
6372 037414 104401 005125 


6374 037422 012700 015220 


6375 037426 012720 010000 
6376 037432 112746 000000 
6377 037436 112766 000000 
6378 037444 012620 

6379 037446 012720 000000 
6380 037452 012720 000000 
6381 037456 012701 000400 
ety 037462 012702 177777 
6384 037466 010220 


6387 037474 005037 015124 
6388 037500 004737 045616 


6389 

6390 

6391 

6392 037504 004037 047020 
6393 037510 015220 
6394 037512 016264 
6395 037514 000404 
6396 037516 037524 
6397 037520 0375350 
6398 

6399 037522 037534 
6400 


6401 037524 104004 
6402 037526 000207 
6403 037530 104005 


6406 037532 000207 


MACY11 30A(1052) 
160 


000001 


6$: 


3$: 


4$: 
5$: 


C 12 
24-MAY-79 15:07 PAGE 147 


READ ECC ENABLED 2A 


MOV @#GECC1,-(SP) 
BIC #174000, (SP) 
CMP * hel ati 


ERROR 32 


;0CK SHOULD BE SET IN RHERI 
GET PATTERN REGISTER 

;KEEP ONLY 11 BITS 

; COMPARE PATTERN REGISTER 
:BRANCH IF GOOD 


311 BITS OF THE 32 BIT ECC REGISTER INCORRECT 


;*ADD 16 MAINTENANCE CLOCKS TO 


>*BRING EBL DOWN 


MOV #16.,R0 
BIS #WACLK ,QRHMAR 


BIC #WACLK ,ARHAR 
DEC RO 
BNE 


8$ 
JSR PC ,a#CHECKE 
TYPE »CPHALT 


MOV #WRFROM,RO 


MOV #O'FMT22,(RO)* 


MOVB #0, -(SP) 
MOVB #0, 1(SP) 
MOV (SP)+, (RO)+ 


MOV R2, (RO)+ 
DEC R1 
BNE 3$ 


CLR a#ERFLGS 
JSR PC ,a#PUTREG 


; COUNTER 
;SET CLOCK 
hoor CLOCK 


; COUN 

:BRANCH IF 16 CLOCKS NOT DONE 
;CHECK THAT DVA,RDY,DPR,DRY = 1 

: CANNOT CONTINUE IF THEY DON'T 
;STOP THE TEST AND RESTART PROGRAM 
;GETTING READY TO FILL EXPECTED DATA 
CYLINDER 0 

IN LOWER BYTE GET SECTOR 

;GET TRACK IN HIGHER BYTE 

;GET TRACK/SECTOR IN BUFFER 

;KEY1 IN BUFFER 

sKEY2 IN BUFFER 

pth WORD COUNTER 


;DATA INTO BUFFER 
; COUNT 


; COU 

;BRANCH IF 256 NOT DONE 
;CLEAR ERROR FLAG 

7 SAVE REGISTERS 


;NOW READ DATA BUFFER WILL BE CHECKED 


JSR RO, a#COMPAR 
WRF ROM 


; CHECK 

;GOOD BUFFER 

; TEST BUFFER 

;NUMBER OF WORDS CHECKED 
;RETURN POINT FOR ERROR HEADER 
RETURN POINT FOR ERROR DATA 


;RETURN FOR GOOD COMPARISON 
;READ NEXT ERROR 
;RETURN TO ‘'COMPAR™’ 


DS 
:5_T0 260 ARE DATA WORDS 
;RETURN TO ‘’COMPAR™’ 


SEQ 0145 


an 


CZRJHDO,RPO4/5/6 DSKLS _ 
CZRIHD.P12 01-MAR-79 09:10 


6409 
6410 


MACY11 30A(1052) 
160 


24-MAY-79 


D 12 
15:07 PAGE 148 


READ ECC ENABLED 2A 


SEQ 0146 


oma 


E 12 
CZRJHDO ,RPO4/5/6 DSKLS ms MACY11 30A(1052) 24-MAY-79 15:07 PAGE 149 


CZRJHD.P12 01-MAR-79 09:10 160 READ ECC ENABLED 2A SEQ 0147 
6411 
6412 pptereerererererrrererrererererereererereneeetereeeeeeeeeeeereTe 
ie :*TEST 61 READ ECC ENABLED 2B 
6415 ;* THIS IS AN ECC READ DATA TEST 
6416 ;¢ ERROR CORRECTION IS ENABLED 
6417 ;@ A CORRECTABLE ERROR IS INSERTED IN BIT POSITION 32 
6418 ;* GOOD DATA USED IS 256 WORDS OF 177777 
6419 7e COMMAND IS GIVEN FOR CYLINDER 0 FORMAT 16 BITS PER WORD 
ont ;* TRACK 0, SECTOR O KEYS 0 READ HEADER AND DATA 
6422 ppeeeeeeerererererenerereererenereereteeeeeeeeeeeeeKeteeeeeeeeee 
6423 037534 000004 TST61: SCOPE 
ote 037536 012706 001000 MOV WSTACK,SP ;RESET STACK 
ay 037542 012737 000061 017330 MOV #TINO,O#TSTNM ;THIS SAVES TEST NUMBER 
6428 
6429 ;*SETUP FOR WHAT IS TO BE READ 
ro s®HEADER CRC 1S RESTORED FROM A SUBROUTINE 
6432 037550 012746 177777 MOV #-1,-(SP) ;DATA TO BE READ 
6633 037554 012705 000490 MOV #256.,R5 ; COUNTER 
6434 037560 012700 054726 MOV #D1SK,RO sSTART OF SIMULATED DISK DATA 
6435 037564 011620 1$: MOV (SP), (RO)+ sMOVE IN DATA ON TO SIMULATED DISK 
6436 037566 005305 DEC R5 ; COUNT 
6437 037570 001375 BNE 1$ ;BRANCH IF 256 NOT COMPLETE 
6438 037572 005726 TST (SP)+ ;UNDO -(SP) 
6439 037574 022020 CMP (RO)+,(RO)* ; JUMP OVER THE TWO ECC WORDS 
6440 037576 012705 000017 MOV #i5., R5 31 DATA GAP 
6441 314 TOLERANCE GAP 
6442 037602 005020 2$: CLR (RO)+ ;CLEAR DATA GAP, AND 
6443 037604 005305 DEC R5 ; TOLERANCE GAP 
oe 037606 001375 BNE 2$ ;BRANCH IF NOT COMPLETE 
644 
6446 
a4 037610 004737 051414 JSR PC ,a#FILLEC ; INSERT ECC IN PROPER PLACE ON DISK 
644 
6449 
6450 
+44 ;*THESE ARE FOR ECC TEST ONLY 
64 
6453 037614 012737 177777 015142 MOV #-1 ,a#TSECC ;THIS IS AN ECC TEST 
6454 037622 005037 050632 CLR avPOSITI ;CLEAR ERROR POSITION COUNTER 
6455 037626 013737 050626 050630 MOV @#NCODE ,A#NCOUNT ; TEMPORARY N-CODE COUNTER 
6456 037634 013737 050634 050642 MOV Q#HARDER,@#HADTIMP ; TEMPORARY HARD ERROR COUNTER 
6457 037642 005037 050620 CLR a#GECCl ;ECC LOW ORDER TO BE GENERATED 
6458 037646 005037 050622 CLR a#GECC2 sECC HIGH ORDER TO BE GENERATED 
6459 037652 005037 050636 CLR @#DATENV ;CLEAR DATA ENVELOPE CLOCK COUNT 
ose 037656 005037 050640 CLR a#ZCODE ;CLEAR LEADING ZEROS CLOCK COUNT 
646 
6462 
6463 :*THESE ARE TO SETUP FOR DISKLESS USE ONLY 
6464 
6465 037662 012737 010000 053010 MOV #FMT22,a8CYL 316 BITS PER WORD 


6466 :CYLINDER 0, FORMAT 16 BITS 





ad a 


CZRJHDO ,RPO4/5/6 DSKLS ps 
Pi2 01-MAR-79 09:10 


CZRJHD. 


ooooo°c[woo 


037742 


037750 


037756 


040014 


040022 
040026 
040032 


040036 
040040 
040044 
040050 


— —\ NANA Nw 
ooNNN NNN 


012737 


012737 


005077 
004737 
104401 


000000 
013711 
005037 
004737 


000000 


047332 


077777 


000026 


046116 
177374 


010000 


154742 


MACY11 30A(1052) 
161 


054730 


040124 


154760 
154754 


000001 
154744 


F 12 
24-MAY-79 15:07 PAGE 150 
READ ECC ENABLED 28 


MOVB WO,QMSECOTR+1 ; TRACK 0 
MOVB #0 ,a#SECOTR SECTOR 0 


MOV #0. anKeY| ;KEY1=0 
MOV #0. aaKEY2 SKEY2=0 
MOV #256. SED AUORD :NO« OF DATA WORDS 
CLR THIS IS A READ COMMAND 
JSR RS BECRC °G0 TO CALCULATE CRC 
YL 
WCRC 


s*THIS IS TO INSERT ERROR 

s*THE DISK DATA IS IN LOCATION STARTING FROM ‘DISK' 
iti OF THE ERROR CAN BE CHANGED BY CHANGING 
;*iTH V 


MOV #77777 ,a#DISK+2 ;FORCE ERROR ON BIT NUMBER 32 
3S0 ERROR POSITION REGISTER WILL SHOW 


MOV #22. ,aN8% : INSERT POSITION REG. 


;* THESE ARE REGULAR SETUPS 


JSR PC ,a#CLDISK ;SETUP GENERAL REGISTERS 
MOV #-256.-4.,@RHWC 3256. DATA 4 HEADER WORDS 
MOV WREINTO,QRHBA ;STARTING ADDRESS OF READ BUFFER 


MOVB #0,-(SP) ;1N LOWER BYTE GET SECTOR 
MOVB #0,1(SP) :GET TRACK IN HIGHER BYTE 
MOV (SP)+,@RHDST ; TRACK/SECTOR IN RHDST 


MOV WEMT22,QRHOF 16 BITS PER WORD 
ECC CORRECTION NOT INHIBIT 
;BECAUSE ECC 1S NOT GOING 
;TO0 BE CHECKED 

CLR @RHCA CYLINDER 0 


JSR PC ,a#CHECKT :CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T 
TYPE »CPHALT ;CANNOT CONTINUE TESTING IF ANY OF THE 

;ABOVE BITS DON'T = 1 OR OTHERS ARE STUCK a 1 
HALT ;STOP THE TEST 
MOV O#REFOR AR ;READ HEADER AND DATA=72 
CLR a#ERFLGS ; CLEAR ERROR FLAG 
JSR PC ,a#COMHD READ HEADER AND DATA 


;1F THERE ARE READ ERRORS THEN 
ECC WILL NOT BE CHECKED 


:*1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
;*FROM THE ‘‘COMHD'’ ROUTINE THAT MEANS SECTOR GAP, 
s*FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND 

:*SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY 

> *DETECTED 

;*HEADER AND DATA ARE TO BE CHECKED. 

:*1N CHECKING READ DATA THE WRITE FROM BUFFER 

pe""WRFEROM' 1S FILLED WITH EXPECTED DATA AND 
;*COMPARISONS ARE MADE 


SEQ 0148 


on 


CZRJHDO ,RPO4/5/6 DSKLS CTRLR2 
CZRIHD.P12 01-MAR-79 09:10 


040054 005737 015124 


045616 
100000 


040076 104032 


040100 
040104 
040110 
040114 
040116 


040120 
040124 


013746 050620 
174000 


015064 
104032 


004037 
000026 


051242 


046350 
005123 


015220 
010000 
746 000000 
766 000000 


720 000000 


040126 


702 (177777 


So 
~~ 
So 
— 
N 
LS 
oooooo00—--o 
OO ~@€-0 at nt et as os os os 
— MOM MPN hnrrr 
Pe 
Nm 
o 


040210 


077777 
045616 
015124 


040212 
040220 
040224 


012737 
004737 
005037 


040230 047020 
040234 
040236 
040240 
040242 
040244 


040246 


004037 


040254 
040260 


MACY11 30A(1052) 
161 


015034 


000001 


015232 


6$: 


7$: 
8$: 


3$: 


24-RMAY-79 
READ ECC ENABLED 28 
TST a#ERFLGS 
BNE TS162 
JSR PC, ,a#PUTREG 
CMP #OCK AMER] 
BEQ 6% 
ERROR 32 
MOV @#GECC1,-(SP) 
BIC #174000, (SP) 
CMP (SP)+,a#EC2 
BEQ 7$ 
ERROR 32 
JSR RO, a#ECORR 
a2. 
JSR PC ,a#CHECKE 
TYPE »CPHALT 
HALT 
MOV #WRFROM,RO 
MOV #O'FMT22,(RO)+ 
MOVB #0,-(SP) 
MOVB #0,1°SP) 
MOV (SP)+,(RO)+ 
MOV #0,(RO)+ 
MOV #0, (RO)+ 
MOV #254.,R1 
MOV #-1,R2 
MOV R2, (RO) + 
DEC 
BNE 3$ 


G 12 
15:07 PAGE 151 


;ANY ERRORS ALREADY THERE 
;BRANCH IF YES 
;SAVE REGISTERS 


ONLY DATA CHECK ERROR SHOULD BE SET 
:BRANCH IF YES 
{Ae ECC REGISTER SHOULD BE NON 


Ze 

SONLY 11 OF THE 32 BITS CAN BE SEEN 
IN THE PATERN REGISTER 

;DCK SHOULD BE SET IN RHERI 

GET PATTERN REGISTER 

KEEP ONLY 11 BITS 


; COMPARE yh REGISTER 
:BRANCH IF G 
311 BITS OF THe 32 BIT ECC REGISTER INCORRECT 


:G0 TO ECC CORRECTION PROCESS 
sEXPECTED POSITION REG. WHEN CORRECTION 
;1S COMPLETE 


;CHECK THAT DVA,RDY,DPR,DRY = 1 
;CANNOT CONTINUE IF THEY DON'T 

;STOP THE TEST AND RESTART PROGRAM 
;GETTING READY TO FILL EXPECTED DATA 
sCYLINDER 0 

7 1N LOWER BYTE GET SECTOR 

;GET TRACK IN HIGHER BYTE 

;GET TRACK/SECTOR IN BUFFER 

;KEY1 IN BUFFER 

;KEY2 IN BUFFER 


ob WORD COUNTER 

:DA 

ped INTO BUFFER 
‘BRANCH IF 256 NOT DONE 


:*ONLY GOOD DATA HAS BEEN PUT IN ‘WRFROM' 
;*NOW THE INSERTED ERROR WILL BE PUT IN 


#77777 ,a#WRFROM+<5*2> 
;SAVE REGISTERS 
; CLEAR ERROR FLAG 


PC ,a#PUTREG 
avERFLGS 


; INSERTED ERROR 


>*NOW READ DATA BUFFER WILL BE CHECKED 


JSR 
WRF ROM 


RO,a#COMPAR 


> CHECK 

;GOOD BUFFER 

; TEST BUFFER 

sNUMBER OF WORDS CHECKED 
sRETURN POINT FOR ERROR HEADER 
sRETURN POINT FOR ERROR DATA 


RETURN FOR GOOD COMPARISON 


——-—_-——_} 


SEQ 0149 


an 





CZRJHDO,RP04/5/6 DSKLS yh) | 


CZRJHD.P12 


040254 


040256 


01-MAR-79 


104004 
000207 
104005 


000207 


MACY11 30A(1052) 
161 


4$: 
5$: 


H 12 
24-MAY-79 15:07 PAGE 152 


READ ECC ENABLED 2B 


ERROR 4 
RTS PC 
ERROR § 
RTS PC 


;READ NEXT ERROR 
;RETURN TO ‘‘COMPAR'' 
;WORD NOS 1 TO 4 ARE 


;HEADER WORDS 
:3 TO 260 ARE DATA WORDS 
;RETURN TO ‘'COMPAR’ 


SEQ 0150 





CZRJHDO, ee an DSKLS Cs 


CZRJHD.P 


040260 
040262 


040266 


040274 


040320 
040322 


040326 
040330 
040332 


040334 


040340 


040402 


040406 
040414 


01-MAR-79 


000004 
012706 


012737 


005020 
005305 
001375 


004737 


005037 


012737 
112737 


09:1 


001000 
000062 


177777 
000400 
054726 


000017 


051414 


177777 


050640 


010000 
000000 


MACY11 30A(1052) 
161 


017330 


015142 


050630 
050642 


053010 
053013 


1 12 
24-MAY-79 15:07 PAGE 153 
READ ECC ENABLED 28 


sy errtereerreerrrrererrereretereeererereneneeeeereneeeeenetenereeee 


s*TEST 62 


oo. Se ee 
see 8 82 


THIS 1S 


READ ECC ENABLED 2C 
AN ECC READ DATA TEST 


ERROR CORRECTION 1S ENABLED 
A NON CORRECTABLE ERROR IS INSERTED IN BIT POSITION 32 AND 21 
GOOD DATA USED IS 256 WORDS OF 177777 


COMMAND 


TRACK 0, 


1S GIVEN FOR CYLINDER 0 FORMAT 16 BITS PER WORD 
SECTOR 0 KEYS 0 READ HEADER AND DATA 


sp eeeereerererereerererereteeeerteeeeeeeneeeeeteeReeveneeteneeeese 


TST62: 


2s: 


SCOPE 
MOV 


MOV 


#STACK SP sRESET STACK 
WTINO,Q#7STNM 8 ;THIS SAVES TEST NUMBER 


SETUP FOR WHAT IS TO BE READ 
HEADER CRC 1S RESTORED FROM A SUBROUTINE 


JSR 


st THESE 


> * THESE 
MOV 
MOVB 


#-1,-(SP) ;DATA TO BE READ 
#256.,R5 ; COUNTER 
#01SK,RO START OF SIMULATED DISK DATA 
(SP), (RO)+ :MOVE IN DATA ON TO SIMULATED DISK 
R5 ; COUNT 
1$ BRANCH IF 256 NOT COMPLETE 
(SP)+ ;UNDO -(SP) 
(RO)*, (RO) + ; JUMP OVER THE TWO ECC WORDS 
#15.,R5 :1 DATA GAP 
314 TOLERANCE GAP 
(RO) + :CLEAR DATA GAP, AND 
R5 ; TOLERANCE GAP 
2$ ;BRANCH IF NOT COMPLETE 
PC, ,a#FILLEC INSERT THE TWO ECC WORDS ON THE DISK 


> IN THE CORRECT PLACE 
ARE FOR ECC TEST ONLY 


#-1 ,a#TSECC :THIS IS AN ECC TEST 

a#POSITI ;CLEAR ERROR POSITION COUNTER 
@#NCODE ,a#NCOUNT ; TEMPORARY N-CODE COUNTER 
@#HARDER,Q#HADTMP ; TEMPORARY HARD ERROR COUNTER 


asGECC ;ECC LOW ORDER TO BE GENERATED 

a#GECC2 ;ECC HIGH ORDER TO BE GENERATED 
@sDATENV ;CLEAR DATA ENVELOPE CLOCK COUNT 
a#ZCODE ;CLEAR LEADING ZEROS CLOCK COUNT 


ARE TO SETUP FOR DISKLESS USE ONLY 


#FMT22 ,QNCYL be BITS PER WORD 
LINDER 0, FORMAT 16 SITS 
#0 ,a#SECOTRe1 ‘TRACK 0 


SEQ 0151 


eS) 


on 


CZRJHDO,.RPO4/5/6 DSKLS CTRLR2 


CZRIHD.P12 


040422 


040464 


040466 


040474 


040502 


040546 


040552 
040556 


040562 
040564 


040570 
040574 


01-MAR-79 09:10 


ooooo°o°0o— 
ooNN NN 


012737 


012737 


005077 


004737 
104401 


000000 
013711 


005037 
004737 


000000 


047332 


077757 


010040 


046116 
177374 


010000 


154216 


046160 
005123 


MACY11 30A(1052) 
162 


054730 


040650 


154234 
154230 


000001 
154220 


J 12 
24-MAY-79 15:07 PAGE 154 
READ ECC ENABLED 2C 


MOVB #0. a#SECOTR ;SECTOR 0 

MOV #0.asKeEYl “KEYI=0 

MOV #0. aMKEY2 KEY2=0 

MOV #256.  a#DAWORD :40. OF DATA WORDS 

CLR aX HIS 1S A READ COMMAND 
JSR tte aacRe soo TO CALCULATE CRC 


s*THIS 1S TO INSERT ERROR 

:*THE DISK DATA 1S IN LOCATION STARTING FROM ‘DISK’ 
tae ip = 0 Sy OF THE ERROR CAN BE CHANGED BY CHANGING 
s*iTH V 


MOV #77757, a#D1SK+2 ;FORCE ERROR ON BIT NUMBER 32 AND 21 


3$0 ERROR POSITION REGISTER WILL SHOW 


mov #4128. ,a#8$ ‘INSERT POSITION REG. 


;*THESE ARE REGULAR SETUPS 


JSR PC ,a#CLDISK 7SETUP GENERAL REGISTERS 
MOV #-256.-4.,@RHWC ;256. DATA 4 HEADER WORDS 
MOV WREINTO,@RHBA ;STARTING ADDRESS OF READ BUFFER 
MOVB #0,-(SP) :IN LOWER BYTE GET SECTOR 
MOVB #0,1(SP) ;GET TRACK IN HIGHER BYTE 
MOV (SP)+, @RHDST ;TRACK/SECTOR IN RHDST 
MOV #FMT22,QRHOF 316 BITS PER WORD 
;ECC CORRECTION NOT INHIBIT 
;BECAUSE ECC IS NOT GOING 
;TO BE CHECKED 


CLR @RHCA CYLINDER 0 
JSR PC ,a#CHECKT ;CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T 
TYPE /CPHALT ; CANNOT CONTINUE TESTING IF ANY OF THE 

ABOVE BITS DON'T = 1 OR OTHERS ARE STUCK a 1 
HALT :STOP THE TEST 


;READ HEADER AND DATA=72 
;CLEAR ERROR FLAG 

;READ HEADER AND DATA 

;1f THERE ARE READ ERRORS THEN 
ECC WILL NOT BE CHECKED 


MOV a#REFOR AR 
CLR a#ERFLGS 
JSR PC ,a#COMHD 


:*1F THE PROGRAM COMES BACK HERE WITHOUT —s PRINTOUTS 
7*FROM THE ‘'COMHD'’ ROUTINE THAT MEANS SECTOR GAP, 

:*FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND 

:*SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY 

> *DETECTED 

TtHEADER AND DATA ARE TO BE CHECKED. 

7*IN CHECKING READ DATA THE WRITE FROM BUFFER 

;*'‘WREROM' IS FILLED WITH EXPECTED DATA AND 
;*COMPARISONS ARE MADE 


SEQ 0152 


‘ 


On 
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040644 
040650 


040652 


040656 


040664 
040666 


040670 


040752 


040754 
040762 
040766 
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005737 


104032 


013746 


104032 
004037 
000000 
004737 


022737 


001401 
104036 


015124 


045616 
100000 


050620 
174000 
015064 


051242 


045616 


100100 


046350 
005125 


015220 
010000 
000000 
000000 


000009 
000000 
000400 
177777 


077757 
045616 
015124 
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T62 


015034 


015034 


000001 


015232 


6$: 


7$: 
8$: 


9$: 


3$: 


24-MAY-79 
READ ECC ENABLED 2C 
TST a#ERFLGS 
BNE TS163 
JSR PC ,a#PUTREG 
CMP #WOCK ,A#ERI 
BEQ 6$ 
ERROR 32 
MOV @#GECC1,-(SP) 
BIC #174000, (SP) 
CMP (SP)+,a#EC2 
BEQ 7$ 
ERROR 32 
JSR RO, a#ECORR 
«WORD 
JSR PC ,a#PUTREG 
CMP #OCK!ECH, aMERI 
BEQ 9$ 
ERROR 36 
JSR PC ,a#CHECKE 
TYPE ,CPHALT 
HALT 
MOV #WRFROM,RO 
MOV HO!FRTZE, (RO) + 
MOVB #0,-(SP 
MOVB #0, CSP) 
MOV (SP)+,(RO)+ 
MOV 0,(RO)+ 
MOV 0,(RO)+ 
MOV #256. ,R1 
MOV #-1,R2 
MOV R2,(RO)+ 
DEC R1 
BNE 3$ 


K 12 
15:07 PAGE 155 


SEQ 0153 
7 ANY ere gen THERE 


ERS 
[ONLY DATA CHECK ERROR SHOULD BE SET 
;BRANCH IF YES 
is ECC REGISTER SHOULD BE NON 


; ZERO 

:ONLY 11 OF THE 32 BITS CAN BE SEEN 

IN THE PATERN REGISTER 

;0CK SHOULD BE SET IN RHERI 

;GET PATTERN REGISTER 

KEEP ONLY 11 BITS 

;COMPARE PATTERN REGISTER 

BRANCH IF GOOD 

311 BITS OF THE 32 BIT ECC REGISTER INCORRECT 


;G0 TO ECC CORRECTION PROCESS 
sEXPECTED POSITION REG. WHEN CORRECTION 
31S COMPLETE 


;SAVE REGISTERS 


;WITH ERRORS INSERTED IN BIT POSITION 21 

;AND 32 HARD ERROR BIT SHOULD SET 

;BRANCH IF GOOD ‘ 
WITH ERROR INSERTED IN BIT POSITION 21 THRU 
332 HCE SHOULD SET 


;CHECK THAT DVA,RDY,DPR,DRY = 1 
CANNOT CONTINUE IF THEY DON'T 
;STOP THE TEST AND RESTART PROGRAM 
:GETTING READY TO FILL EXPECTED DATA 
CYLINDER 0 

7 1N LOWER BYTE GET SECTOR 

:GET TRACK IN HIGHER BYTE 

GET TRACK/SECTOR IN BUFFER 

sKEY1 IN BUFFER 

sKEY2 IN BUFFER 

att WORD COUNTER 


:DATA INTO BUFFER 
; COUNT 
:BRANCH IF 256 NOT DONE 


;*ONLY GOOD DATA HAS BEEN PUT IN ‘WRFROM' 
>*NOW THE INSERTED ERROR WILL BE PUT IN 


MOV 
JSR 
CLR 


#77757 ,a#WRFEROM+<5*2> 


PC ,a#PUTREG 
avERFLGS 


; INSERTED ERROR 
;SAVE REGISTERS 
;CLEAR ERROR FLAG 


oa 
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CZRIHD.P12 01-MAR-79 09:10 READ ECC ENABLED 2C SEQ 0154 
6755 
6756 
ort :*NOW READ DATA BUFFER WILL BE CHECKED 
6759 040772 004037 047020 JSR RO, a#COMPAR : CHECK 
6760 040776 015220 WRFROM :GOOD BUFFER 
6761 041000 016264 REINTO : TEST BUFFER 
6762 041002 000404 44256. NUMBER OF WORDS CHECKED 
6763 041004 041012 4$ RETURN POINT FOR ERROR HEADER 
ore 041006 041016 , 5$ RETURN POINT FOR ERROR DATA 
ons 041010 041022 TS163 :RETURN FOR GOOD COMPARISON 
6768 041012 104004 4$: ERROR 4 ;READ NEXT ERROR 
6769 041014 000207 RTS PC RETURN TO ‘‘COMPAR"' 
6770 041016 104005 5$: ERROR 5 WORD NOS 1 TO 4 ARE 
6771 HEADER WORDS 
6772 ;5 10 260 ARE DATA WORDS 


6773 041020 000207 : RTS PC ;RETURN TO ‘'COMPAR 


on 
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CZRIJHD.P12 01-MAR-79 09:10 162 READ ECC ENABLED 2C SEQ 0155 
6774 
6775 sp eeeerererrererrreererereeereeererereeeeAAAAAAeeeReReaKenAAeeee 
orn TEST 63 WRITE ECC TEST 3 
6778 :* THIS 1S A WRITE ECC TEST 
6779 :* WRITE CYLINDER 0, FORMAT 16 BITS PER WORD 
6780 38 TRACK 0, SECTOR 1, KEYS 0, NUMBER OF WORDS 256 
ore ;* OF ALL 52525. 
6783 pp erkeererereeereeeererereteeererrere reer RARRKeKKRKe HAA T AA AAAs 
6784 041022 000004 18163: SCOPE 
ores 041024 012706 001000 MOV WSTACK,SP sRESET STACK 
6787 041030 012737 000063 017330 MOV #TTINO,Q#TSTNM ;THIS SAVES TEST NUMBER 
6788 041036 012700 054630 MOV #SECGAP,RO sPOINTER 
6789 041042 012701 000460 MOV #304.,R1 : COUNTER 
6790 041046 005020 1$: CLR (RO)+ CLEAR SIMULATED DISK AREA 
6791 041050 005301 DEC R1 
6792 041052 001375 BNE 1$ 
one 041054 004737 046116 JSR PC,CLDISK :THIS 1S USED TO SET GENERAL REGISTERS 
oe :*THESE ARE FOR ECC TEST ONLY 
6797 041060 012737 177777 015142 MOV #-1,a#TSECC THIS IS AN ECC TEST 
6798 041066 005037 050632 CLR a#vPOSITI CLEAR ERROR POSITION COUNTER 
6799 041072 013737 050626 050630 MOV Q@#NCODE ,AMNCOUNT ; TEMPORARY N-CODE COUNTER 
6800 041100 013737 050634 050642 MOV Q@#HARDER, @#HADTMP ; TEMPORARY HARD ERROR COUNTER 
6801 041106 005037 050620 CLR aaGECCl ECC LOW ORDER TO BE GENERATED 
6802 041112 005037 050622 CLR aaGECC2 sECC HIGH ORDER TO BE GENERATED 
6803 041116 005037 050636 CLR asDATENV CLEAR DATA ENVELOPE CLOCK COUNT 
$00 041122 005037 050640 CLR a#Z2CODE CLEAR LEADING ZEROS CLOCK COUNT 
6806 
6807 
6808 
4009 :*THESE ARE TO BE SETUP FOR DISKLESS USE ONLY 
sii 041126 012737 010000 056146 MOV #FMT22,QMWCYL eogret \eeit WORDS AND 
YL 
6813 041134 012737 000001 056150 MOV #1, a#WSECTR s TRACK=0, SECTOR=1 
6814 041142 005037 056152 CLR aewKEY *KEY1=0 
6815 041146 005037 056154 CLR aeWKEY2 *KEY2=0 
6816 041152 012737 000400 056206 MOV #256.,a#FNWORD ;256 DATA WORDS 
6817 041160 004537 047332 JSR R5,a#CRC :GO TO CALCULATE CRC 
6818 041164 056146 WCYL 
ath 041166 056156 GCRC 
6821 s*THESE ARE REGULAR SETUPS 
6 
6823 041170 012777 177374 153552 MOV #-260. ,aRHWC :256 DATA WORDS 4 HEADER WORDS 
6824 041176 012700 015220 MOV #WRFROM,RO sTHESE TWO INSTRUCTIONS GETS 
6825 041202 010077 153544 MOV RO,@RHBA sADDR. OF WRFROM INTO RO AND 
6826 "BUS ADDRESS REGISTER 
6827 041206 012720 010000 MOV #FMT22,(RO)+ sFORMAT=16 BIT WORDS 


6828 CYLINDER=0 
6829 041212 012720 000001 2$: MOV #1,(RO)+ :TRACK=0, SECTOR=1, KEYS=0 


on 
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CZRIHD.P12 01-MAR-79 09:10 163 WRITE ECC TEST 3 SEQ 0156 
6830 041216 005020 CLR (RO)+ sKEY1=0 
6831 041220 005020 CLR (RO)+ ;KEY2=0 
6832 041222 012705 000400 MOV #256. ,R5 ; COUNTER 
68335 041226 012720 052525 3$: MOV #52525, (RO) + sMOVE ALL 52525 FOR DATA 
6834 041232 005305 DEC R5 
6835 041234 001374 BNE 3$ ;BRANCH IF DATA NOT COMPLETE 
oy 041236 012777 000001 153516 MOv #1,aRHOST ;TRACK=0 SECTOR=1 
6838 041244 004737 046160 JSR PC ,@#CHECKT :CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T 
6839 041250 104401 005123 TYPE »CPHALT ; CANNOT CONTINUE TESTING IF ANY OF THE 
6840 [ABOVE BITS DON'T = 1 OR OTHERS ARE STUCK @ 1 
rere 041254 000000 HALT ;STOP THE TEST 
6843 041256 015711 015172 MOV @#WRIFOR,@R1 ;GET READY FOR WRITE HEADER AND 
6844 ;DATA WITH 62 IN RHCS1 
0845 041262 005037 015124 CLR a#ERFLGS ;CLEAR ERROR FLAG 
6846 041266 012777 010000 153472 MOV hae ae @RHOF sFORMAT BIT=1 (16 BIT WORDS) 
6847 041274 005077 153470 CLR @RH sCYLINDER =0 
= 041300 004737 055772 JSR PC, SFCOMWHD WRITE HEADER AND DATA 
6850 :*1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
6851 ;*FROM THE ‘‘COMWHD'’ ROUTINE THAT MEANS ALL HEADER ON DISK 
6852 :*1S GOOD IE. ONLY DATA IS TO BE CHECKED TO SEE IF THEY ARE 
6853 7*ALL 52525 AND WRITE DATA GAP AND TOLERANCE GAP TO SEE IF 
pete: ;*THEY ARE ALL ZEROS 
6856 041304 005737 015124 TST Oa#ERFLGS HAS ANY ERRORS OCCURED? 
6857 7 UF WRITE ERROR OCCURS ECC IS NOT CHECKED 
6858 041310 001056 BNE TST64 :;BRANCH IF YES 
6860 
6861 ; COMPARE - ene GENERATED ECC WITH THAT GENERATED BY HARDWARE 
6862 041312 023737 050620 055726 CMP Q#GECC1,a#WECC1;COMPARE SOFTWARE ECC WITH HARDWARE ECC 
6863 041320 001402 BEQ 6$ ;BRANCH IF GOOD 
6864 041322 104031 ERROR 31 ;LOW ORDER ECC IN ERROR 
6865 0413524 000405 BR 7$ ;BRANCH TO CONTINUE 
6866 041326 023737 050622 055730 6$: CMP Q#GECC2 ,aMWECC2 ; COMPARE SOFTWARE ECC WITH HARDWARE ECC 
6867 041334 001401 BEQ 7$ ;BRANCH IF GOOD 
6868 041336 104031 ERROR 31 :HIGH ORDER ECC IN ERROR 
6869 
6870 
6871 041340 7$: 
6872 041340 004737 046350 JSR PC ,aM#CHECKE ;CHECK THAT DVA,RDY,DPR,DRY = 1 
6873 041344 104401 005123 TYPE /CPHALT CANNOT CONTINUE IF THEY DON'T 
re th 041350 000000 HALT ;STOP THE TEST AND RESTART PROGRAM 
6 
6876 
6877 
6878 
red FILL “'REINTO’’ BUFFER WITH EXPECTED DATA 
6 
6881 041352 004037 046034 JSR RO,@#CLAREA FILL REINTO BUFFER 
6882 041356 016264 REINTO ;FROM 
6883 041360 017262 REINTO*#<255.#2> ;10 


6884 041362 052525 WORD 52525 ;DATA 
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041410 


041412 


041416 
041422 
041424 
041426 
041430 
041432 


041434 
041436 


041440 
041442 


041444 
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013 
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000000 


005037 


ere te 


041442 
041446 
104007 


000207 
104010 


000207 


015124 


047020 
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4$: 
5$: 
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WRITE ECC TEST 3 SEQ 0157 


MOV Q#GECC1,@#REINTO+<256.*2>;FILL ECCI 
MOV aNGECC2 BFRE INTO <257. #2>:FILL ECC2 
JSR AREA sFILL REST 
sratorceth ose : FROM 


REINTO+<272.*#2> 310 
0 DATA 
CLR avERFLGS ;CLEAR ERROR FLAG 


;*NOW COMPARE ‘'DISK'’ BUFFER WITH ‘'REINTO"’ 


JSR RO, a#COMPAR ; CHECK 
REINTO ;GOOD BUFFER 
DISK ; TEST BUFFER 
258. ;NUMBER OF WORDS CHECKED 
4% RETURN POINT FOR ERROR HEADER 
5% ;RETURN POINT FOR ERROR DATA 
TST64 ;RETURN FOR GOOD COMPARISON 
ERROR 7 ;READ ERROR 10 NEXT 
RTS PC ;RETURN TO COMPARE 
ERROR 10 ;WORD NOS 1 TO 256 ARE 
;DATA WORDS 
;WORD NOS 257 AND 258 
TARE ECC WHICH ARE CHECKED 
;WORD NOS 259 
:1$ DATA GAP 
;WORD NOS 260 T0 273 
;ARE TOLERANCE GAP 
RTS PC ;RETURN TO COMPARE 
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6919 

6920 sy etteeeereeererererrererereerereeeterrreererereeeenereneeeeeerenet 
243 StTEST 64 READ ECC ENABLED 3A 

6923 ;* THIS IS AN ECC READ DATA TEST 

6924 ;* ERROR CORRECTION IS ENABLED 

6925 :* NO ERROR IS INSERT 

6926 ;* GOOD DATA USED 1S 256 WORDS OF 52525 

6927 ;t COMMAND 1S GIVEN FOR CYLINDER 0 FORMAT 16 BITS PER WORD 
ee se TRACK 0, SECTOR 0 KEYS 0 READ HEADER AND DATA 

6930 ppeeteeeeererererererereerrerreteretertekeneeKeKeeeaeKeeKeeeKAee ee 
6931 041446 000004 TST64: SCOPE 

6932 041450 012706 001000 MOV #STACK,SP sRESET STACK 

6935 041454 012737 000064 017330 MOV #TTNO,Q#TSTNM ;THIS SAVES TEST NUMBER 

6935 

6936 :*SETUP FOR WHAT 1S TO BE READ 

937 :*HEADER CRC 1S RESTORED FROM A SUBROUTINE 

6939 041462 012746 052525 MOV #52525,-(SP) :DATA TO BE READ 

6940 041466 012705 000400 MOV #256. ,R5 : COUNTER 

6941 041472 012700 054726 MOV #DISK,RO sSTART OF SIMULATED DISK DATA ‘ 
6942 041476 011620 1$: MOV (SP), (RO)+ ‘MOVE IN DATA ON TO SIMULATED DISK , 
6943 041500 005305 DEC RS : COUNT \ 
6944 041502 001375 BNE 1$ ‘BRANCH IF 256 NOT COMPLETE 

6945 041504 005726 TST (SP)+ :UNDO -(SP) 

6946 041506 022020 CMP (RO)+,(RO)* : JUMP OVER THE TWO ECC WORDS 

6947 041510 012705 000017 MOV #15.,R5 :1 DATA GAP 

6948 314 TOLERANCE GAP 

6949 041514 005020 2%: CLR (RO)+ ‘CLEAR DATA GAP, AND 

6950 041516 005305 DEC RS TOLERANCE GAP 

$931 041520 001375 BNE 2$ :BRANCH IF NOT COMPLETE 

6 

6953 041522 004737 051414 JSR PC, a#FILLEC INSERT THE TWO ECC WORDS ON THE DISK 
eee: :IN THE CORRECT PLACE 

6 

6936 s*THESE ARE FOR ECC TEST ONLY 

6958 041526 012737 177777 015142 MOV #-1,a#TSECC THIS 1S AN ECC TEST 

6959 041534 005037 050632 CLR avPOSsitl sCLEAR ERROR POSITION COUNTER 
6960 041540 013737 050626 050630 MOV @#NCODE,@M#NCOUNT ; TEMPORARY N-CODE COUNTER 

6961 041546 013737 050634 050642 MOV Q#HARDER, @#HADTMP ; TEMPORARY HARD ERROR COUNTER 
6962 041554 005037 050620 CLR aaGECcl sECC LOW ORDER TO BE GENERATED 
6963 041560 005037 050622 CLR aaGECC2 sECC HIGH ORDER TO BE GENERATED 
6964 041564 005037 050636 CLR asDATENV :CLEAR DATA ENVELOPE CLOCK COUNT 
6905 041570 005037 050640 CLR aavZCODE sCLEAR LEADING ZEROS CLOCK COUNT 
6966 

6967 

$968 s*THESE ARE TO SETUP FOR DISKLESS USE ONLY 

696 

6970 041574 012737 010000 053010 MOV #FMT22,Q8CYL :16 BITS PER WORD 

6971 ;CYLINDER 0, FORMAT 16 BITS 

6972 041602 112737 000000 053013 MOVB #O,aMSECOTR+1 ;TRACK 0 

6973 041610 112737 000000 053012 MOVB #0, a#SECOTR :SECTOR 0 

6974 041616 012737 000000 053014 MOV #0, aeKeYl sKEY1=0 


an 
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041624 
041632 
041640 
041644 
041650 
041652 


041654 
041660 


041712 


041720 


041724 
041730 


041734 


041736 
041742 
041746 


041752 
041756 
041760 
041764 
041770 
041772 


041774 


005077 


004737 
104401 


000000 
013711 


005037 
004737 


005737 


001401 
104032 


013746 


000000 


047332 


046116 
177374 


010000 


153044 


046160 
005123 


015124 


045616 
015034 


050620 
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153062 
153056 


000001 
153046 


o$: 
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READ ECC ENABLED 3A 


MOV #0, a#KEY2 sKEY2=0 
MOV #256. ,@#DAWORD "NO. OF DATA WORDS 


CLR ) ; THIS IS A READ COMMAND 
Sy R5,aa#cRC ;GO TO CALCULATE CRC 

YL 
wCRC 


;*THESE ARE REGULAR SETUPS 


JSR PC ,a#CLDISK ;SETUP GENERAL REGISTERS 
MOV #=256.-4.,@RHWC ;256. DATA 4 HEADER WORDS 
MOV WREINTO,Q@RHBA ;STARTING ADDRESS OF READ BUFFER 
MOVB #0,-(SP) ;1N LOWER BYTE GET SECTOR 
MOVB #0,1¢SP) ;GET TRACK IN HIGHER BYTE 
MOV (SP)+#, @RHDST ;TRACK/SECTOR IN RHDST 
MOV WFMT22,QRHOF ;16 BITS PER WORD 
ECC CORRECTION NOT INHIBIT 
;BECAUSE ECC IS NOT GOING 
;10 BE CHECKED 
CLR @RHCA ;CYLINDER 0 


JSR PC ,a#CHECKT CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T 
TYPE ,CPHALT ;CANNOT CONTINUE TESTING IF ANY OF THE 

;ABOVE BITS DON'T = 1 OR OTHERS ARE STUCK @ 1 
HALT ;STOP THE TEST 


MOV Q#REFOR ARI ;READ HEADER AND DATA=72 

CLR a#ERFLGS ;CLEAR ERROR FLAG 

JSR PC ,a#COMHD ;READ HEADER AND DATA 
;1f THERE ARE READ ERRORS THEN 
sECC WILL NOT BE CHECKED 


:*1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
:*FROM THE ‘‘COMHD'’ ROUTINE THAT MEANS SECTOR GAP, 
*FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND 

>*SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY 

; *DETECTED 

;*HEADER AND DATA ARE TO BE CHECKED. 

:t1N CHECKING READ DATA THE WRITE FROM BUFFER 

;*'WRFROM' IS FILLED WITH EXPECTED DATA AND 

> *COMPARISONS ARE MADE 


TST a#ERFLGS ;ANY ERRORS ALREADY THERE 


BNE TST65 ;BRANCH IF YES 

JSR PC ,a#PUTREG ;SAVE REGISTERS 

TST aveER| ;NO ERRORS SHOULD BE SET 

BEQ 6% ;BRANCH IF NO ERRORS SET 

ERROR 32 :32 BIT ECC REGISTER SHOULD BE ZERO 


;ONLY 11 OF THE 32 BITS CAN BE SEEN 
;IN THE PATERN REGISTER 
;DCK SHOULD BE SET IN RHERI 

MOV Q#GECC1,-(SP)  ;GET PATTERN REGISTER 


SEQ 0159 


ee es ee ee eee 


aor 
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CZRIHD.P12 01-MAR-79 09:10 164 READ ECC ENABLED 3A SEQ 0160 
7031 042000 042716 174000 BIC #174000, (SP) sKEEP ONLY 11 BITS 
7032 042004 022637 015064 CMP (SP)+,a#EC2 COMPARE PATTERN REGISTER 
7033 042010 001401 BEQ 7$ ‘BRANCH IF GOOD 
Atel 042012 104032 ERROR 32 :11 BITS OF THE 32 BIT ECC REGISTER INCORRECT 
7036 
7037 
7038 
7039 :*ADD 16 MAINTENANCE CLOCKS TO 
A ogy :*BRING EBL DOWN 
7042 042014 012700 000020 7$: MOV #16. ,R0 ; COUNTER 
7043 042020 052777 000002 152750 8$: BIS #ACLK ,ARHMR :SET CLOCK 
7044 042026 042777 000002 152742 BIC #MCLK ,@RHMR ;CLEAR CLOCK 
7045 042034 005300 DEC RO ; COUNT 
7046 042036 001370 BNE 8$ sBRANCH IF 16 CLOCKS NOT DONE 
7047 042040 004737 046350 JSR PC, @#CHECKE ;CHECK THAT DVA,RDY,DPR,DRY = 1 
7048 042044 104401 005123 TYPE ,CPHALT :CANNOT CONTINUE IF THEY DON'T 
7049 042050 000000 HALT :STOP THE TEST AND RESTART PROGRAM 
7050 042052 012700 015220 MOV #WREROM,RO GETTING READY TO FILL EXPECTED DATA 
7051 042056 012720 010000 MOV WO'FMT22,(R0)* [CYLINDER 0 
7052 042062 112746 000000 MOVB #0,-(SP) : IN LOWER BYTE GET SECTOR 
7053 042066 112766 000000 000001 MOVB #0,1(SP) :GET TRACK IN HIGHER BYTE 
7054 042074 012620 MOV (SP)+,(RO)+ :GET TRACK/SECTOR IN BUFFER 
7055 042076 012720 000000 MOV #0,(RO)+ ;KEY1 IN BUFFER 
7056 042102 012720 000000 MOV #0,(RO)+ sKEY2 IN BUFFER 
7057 042106 012701 000400 MOV #256.,R1 DATA WORD COUNTER 
7058 042112 012702 052525 MOV #52525, R2 sDATA 
7059 042116 010220 3$: MOV R2,(RO)+ DATA INTO BUFFER 
7060 042120 005301 DEC R1 ; COUNT 
7061 042122 001375 BNE 3$ ;BRANCH IF 256 NOT DONE 
7062 042124 005037 015124 CLR a#ERFLGS :CLEAR ERROR FLAG 
eee 042130 004737 045616 JSR PC, a#PUTREG SAVE REGISTERS 
pees :*NOW READ DATA BUFFER WILL BE CHECKED 
7067 042134 004037 047020 JSR RO, aa COMPAR 3s CHECK 
7068 042140 015220 WRF ROM ;GO0D BUFFER 
7069 042142 016264 REINTO : TEST BUFFER 
7070 042144 000404 44256. :NUMBER OF WORDS CHECKED 
7071 042146 042154 4% RETURN POINT FOR ERROR HEADER 
fore 042150 042160 5$ RETURN POINT FOR ERROR DATA 
A 042152 042164 TST65 RETURN FOR GOOD COMPARISON 
7076 042154 104004 4$: ERROR 4 :READ NEXT ERROR 
7077 042156 000207 RTS PC RETURN TO ‘‘COMPAR'' 
7078 042160 104005 S$: ERROR 5 :WORD NOS 1 TO 4 ARE 
7079 sHEADER WORDS 
7080 35 TO 260 ARE te) WORDS 


7081 042162 000207 RTS PC ;RETURN TO ‘'COMPAR 


aon 
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042164 
042166 
042172 


042200 


042224 
042226 


042232 
042234 
042236 


042240 


042244 


042302 
042306 


042312 
042320 


000004 
012706 
012737 


005020 
005305 
001375 


004737 


005037 


012737 
112737 


001000 
000065 


052525 
000400 
054726 


000017 


051414 


177777 


050640 


010000 
000000 


MACY11 30A(1052) 
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017330 


015142 


050630 
050642 


053010 
053013 


F 13 
24-MAY-79 15:07 PAGE 
READ ECC ENABLED 3A 


163 


,;,eeeeerrerererererrerererereeeereeeterenaeeeeeneeeeeeereneeetese 


s*TEST 65 


THIS 1S AN ECC READ DATA TEST 
oo CORRECTION IS ENABLED 
A CORRECTABLE ERROR IS wea te IN BIT POSITION 4128 
TH 


THIS IS 


READ ECC ENABLED 


THE LAST BIT OF 


38 


GOOD DATA USED 1S 256 WORDS OF 52525 
COMMAND IS GIVEN FOR CYLINDER 0 FORMAT 16 BITS PER WORD 


TRACK 0, 


SECTOR 0 KEYS 0 


READ HEADER AND DATA 


MORE eeteeeeeeeeretereteeeereekeeeKekeaKteeeerteneteneteetene 


1$: 


2$: 


1S165: 


SCOPE 
MOV 
MOV 


#STACK,SP 
#TTNO,Q#1TSTNM 


RESET STACK 
; THIS SAVES TEST NUMBER 


;*SETUP FOR WHAT IS TO BE READ 
;*HEADER CRC 1S RESTORED FROM A SUBROUTINE 


JSR 


;* THESE 


s* THESE 
MOV 
MOVB 


#52525, (SP) 
#256. ,R5 


#D01SK,RO 
(SP), (RO) + 
R5 


1$ 

(SP)+ 
(RO)+,(RO)+ 
#15., RS 


(RO) + 


R5 
2$ 


PC ,a#FILLEC 


ARE FOR ECC TEST 


#-1 ,a#TSECC 
a#POSITI 
@#NCODE ,A#NCOUNT 


Q#HARDER ,@#HAD TMP 
;ECC LOw ORDER TO BE GENERATED 

;ECC HIGH ORDER TO BE GENERATED 
;CLEAR DATA ENVELOPE CLOCK COUNT 
;CLEAR LEADING ZEROS CLOCK COUNT 


a*GECC 

a*GECC2 

Q*DATENV 

a#7ZCODE 

ARE TO SETUP FOR 
WFMT22 ,Q8CYL 


#0,a#SECOTR+1 


;DATA TO BE READ 
; COUNTER 


START OF SIMULATED DISK DATA 
rount IN DATA ON TO SIMULATED DISK 


OUNT 
;BRANCH IF 256 NOT COMPLETE 
;UNDO (SP) 


: JUMP OVER THE TWO ECC WORDS 
;1 DATA GAP 

314 TOLERANCE GAP 

;CLEAR DATA GAP, AND 

; TOLERANCE GAP 

;BRANCH IF NOT COMPLETE 


; INSERT ECC IN PROPER PLACE ON DISK 


ONLY 


; THIS IS AN ECC TEST 
;CLEAR ERROR POSITION COUNTER 


TEMPORARY N-CODE COUNTER ~ 
; TEMPORARY HARD ERROR COUNTER 


DISKLESS USE ONLY 


316 BITS PER WORD 
;CYLINDER 0, FORMAT 16 BITS 
TRACK 0 


SEQ 0161 


aon 


CZRJHDO,RP04/5/6 DSKLS ey 
Pi2 01-MAR-79 09:1 


CHR JHD.P 


042326 


042370 


042372 
042376 
042400 
042404 
042412 


042416 


042424 
042430 
042436 
042444 
042450 
042456 
042462 


042470 


042474 
042500 


042504 
042506 


042512 
042516 


SCONNNNAIN 


013746 
005116 
042716 
042737 
052637 


012737 


005077 


004737 
104401 


000000 
013711 


005037 
004737 


000000 


047332 


055730 
077777 


100000 
055730 


010026 


046116 
177374 


010000 


152274 


046160 
005123 


MACY11 30A(1052) 
165 


055730 


042572 


152312 
152306 


000001 
152276 


6 13 
24-MAY-79 15:07 PAGE 164 
READ ECC ENABLED 38 


MOVB #0,a#SECOTR ;SECTOR 0 
MOV #0, ance KEY1=0 
MOV #0 a#KEY2 “KEY2=0 
MOV #256. SEDAWORD “NO. OF DATA WORDS 
CLR aax ‘THIS 1S A READ COMMAND 
JSR RS, aw#CRC :G0 TO CALCULATE CRC 
YL 
WERC 


:*THIS IS TO INSERT ERROR 

3*THE DISK DATA IS IN LOCATION STARTING FROM ‘DISK* 
;*THE POSITION OF THE ERROR CAN BE CHANGED BY CHANGING 
:*THIS MOVE 

;*THIS CHANGES THE LAST BIT OF THE ECC 


MOV a#wECC2,-(SP) ;GET LAST ECC 

COM (SP) s INVERT ALL BITS OF WECC2 

BIC #*C100000,(SP) ;KEEP BIT 16 

C #100000 ,a#wECC2 ;CLEAR BIT 16 IN ECC 

$ (SP)+,a#wECC2 ;THIS WILL SET BIT 16 IF IT WAS 0 
;OR WILL SET NOTHING IF IT WAS A 1 


MOV #4118. ,a#8% ; INSERT POSITION REG. 


;*THESE ARE REGULAR SETUPS 


JSR PC ,a#CLDISK ;SETUP GENERAL REGISTERS 

MOV #-256.-4.,aRHWC 5256. DATA 4 HEADER WORDS 

MOV WREINTO,Q@RHBA ;STARTING ADDRESS OF READ BUFFER 
MOVB #0, -($P) > IN LOWER BYTE GET SECTOR 

MOVB #0, 1(SP) :GET TRACK IN HIGHER BYTE 

MOV (SP)+, @RHDST ;TRACK/SECTOR IN RHDST 


MOV #FMT22,Q@RHOF ;16 BITS PER WORD 
;ECC CORRECTION NOT INHIBIT 
;BECAUSE ECC 1S NOT GOING 
:;TO BE CHECKED 


CLR @RHCA sCYLINDER 0 
JSR PC ,a#CHECKT :CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T 
TYPE »CPHALT ;CANNOT CONTINUE TESTING IF ANY OF THE 
;ABOVE BITS DON'T = 1 OR OTHERS ARE STUCK @ ! 
HALT :STOP THE TEST 
MOV A#REFOR,AR1 ;READ HEADER AND DATA=72 
CLR avERFLGS ;CLEAR ERROR FLAG 
JSR PC ,a#COMHD ;READ HEADER AND DATA 


;1F THERE ARE READ ERRORS THEN 
ECC WILL NOT BE CHECKED 


;*1F THE PROGRAM COMES BACK HERE WITHOUT ERROR eatin 
;*FROM THE ‘'COMHD'’ ROUTINE THAT MEANS SECTOR GAP 
T*FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND 


CZRJHDO,RPO4/5/6 DSKLS Dh 
12 O1-MAR-79 09:1 


CZRJHD.P 


042522 


042544 


042546 


042564 


042566 
042572 


042574 


042656 


042660 
042664 


005737 


104032 


013746 


104032 


004037 
010026 


004737 
104401 


004737 
005037 


015124 


045616 
100000 


050620 
174000 
015064 


051242 


046350 
005123 


015220 


0 
000000 
000000 


052525 


MACY11 30A(1052) 
165 


015034 


000001 


6$: 


7$: 
8$: 


3$: 


24-MAY-79 


READ ECC ENABLED 38 


>*SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY 
> *DETECTED 
;*HEADER AND DATA ARE TO BE CHECKED. 

;*IN CHECKING READ DATA THE WRITE FROM BUFFER 
;*°WREROM' 1S FILLED WITH EXPECTED DATA AND 

> *COMPARISONS ARE MADE 


a#ERFLGS 
TST66 

PC ,a#PUTREG 
-* gpesaeains 


6 
32 


@#GECC1,-(SP) 
#174000, (SP) 
(SP)+,a#EC2 
7$ 

32 


RO,a#ECORR 


PC ,@#CHECKE 
CPHALT 


#WRFROM,RO 
#O!FMT22,(RO)+ 
) 


#52525 ,R2 
age (RO) + 


5s 


H 13 
15:07 PAGE 165 


SEQ 0163 


;ANY ERRORS ALREADY THERE 
;BRANCH IF YES 
;SAVE REGISTERS 


;ONLY DATA CHECK ERROR SHOULD BE SET 
BRANCH IF YES 
ie ECC REGISTER SHOULD BE NON 


; ZERO 

SONLY 11 OF THE 32 BITS CAN BE SEEN 
IN THE PATERN REGISTER 

;DCK SHOULD BE SET IN RHERI 

;GET PATTERN REGISTER 

KEEP ONLY 11 BITS 


; COMPARE PATTERN REGISTER 
;BRANCH IF GOOD 
311 BITS OF THE 32 BIT ECC REGISTER INCORRECT 


:GO0 TO ECC CORRECTION PROCESS 
sEXPECTED POSITION REG. WHEN CORRECTION 
1S COMPLETE 


;CHECK THAT DVA,RDY,DPR,DRY = 1 
;CANNOT CONTINUE IF THEY DON'T 

;STOP THE TEST AND RESTART PROGRAM 
;GETTING READY TO FILL EXPECTED DATA 
CYLINDER 0 

71N LOWER BYTE GET SECTOR 

;GET TRACK IN HIGHER BYTE 

7GET TRACK/SECTOR IN BUFFER 

;KEY1 IN BUFFER 


;KEY2 IN BUFFER 
ace WORD COUNTER 


;DATA 
hl aaa BUFFER 
:BRANCH IF 256 NOT DONE 


:*ONLY GOOD DATA HAS BEEN PUT IN Ng 
>*NOW THE INSERTED ERROR WILL BE PUT IN 
>*BUT INSERTED ERROR 1S IN ECC SO DATA IS NOT WRONG 


JSR 
CLR 


PC ,a#PUTREG 
asERFLGS 


;SAVE REGISTERS 
;CLEAR ERROR FLAG 


>*NOW READ DATA BUFFER WILL BE CHECKED 


aon 


1 13 
CZRJHDO,RPO4/5/6 DSKLS ss MACY11 30A(1052) 24-MAY-79 15:07 PAGE 166 


CZRIHD.P12 01-MAR-79 09:10 165 READ ECC ENAB! FD 38 SEQ 0164 
7250 042670 004037 047020 JSR RG, ae COMPAR ; CHECK 
7251 042674 015220 WRFROM ;GOOD BUFFER 
7252 042676 016264 REINTO ; TEST BUFFER 
7253 042700 000404 4+256. ;NUMBER OF WORDS CHECKED 
7254 042702 042710 4% ;RETURN POINT FOR ERROR HEADER 
4344 042704 042714 5$ ;RETURN POINT FOR ERROR DATA 
C346 042706 042720 TS166 ;RETURN FOR GOOD COMPARISON 
7259 042710 104004 4$: ERROR 4 ;READ NEXT ERROR 
7260 042712 000207 RTS Pe ;RETURN TO ‘’COMPAR™' 
7261 042714 104005 5$: ERROR 5 ;WORD NOS 1 TO 4 ARE 
7262 ;HEADER WORDS 
7263 :5_10 260 ARE DATA WORDS 
7264 042716 000207 RTS PC ;RETURN TO ‘’COMPAR’ 


aon 


CZRJHDO,RPO4/5/6 DSKLS ph 


CZRIHD.P12 


042720 
042722 
042726 


042734 
042740 


042762 


042766 
042770 
042772 


042774 


043000 
043006 


043042 


043046 
043054 


01-MAR-79 09:1 


000004 
012706 
012737 


0 
012705 
005020 


005305 
001375 


004737 


012737 
112737 


001000 
000066 


052525 
000400 
054726 


000017 


051414 


177777 


050640 


010000 
000000 


MACY11 30A(1052) 
165 


017330 


015142 


050630 
050642 


053010 


053013 


J 13 
24-MAY-79 15:07 PAGE 167 
READ ECC ENABLED 38 


sy eeteererereerrrrererererererererererreseeterereeeeeteneeeteTeres 


:*TEST 66 READ ECC ENABLED 3( 

bet THIS 1S AN ECC READ DATA TEST 

5° ERROR CORRECTION IS ENABLED 

be A NON CORRECTABLE ERROR IS a IN BIT POSITION 296 THRU 308 
hed THIS 1S IN WORD NUMBER 19 AND 20 

gf GOOD DATA USED IS 256 voRDS “OF 52525 

7 COMMAND IS GIVEN FOR CYLINDER 0 FORMAT 16 BITS PER WORD 

ad TRACK 0, SECTOR 0 KEYS 0 READ HEADER AND DATA 


**@@eeererertetertrererrerteeeeraeeeterereneeekeeaeaeretekeeeereeet 


2$: 


1S166: 


SCOPE 
MOV #STACK,SP RESET STACK 
MOV #TTINO,Q#TSTINM =; THIS SAVES TEST NUMBER 


;*SETUP FOR WHAT IS TO BE READ 
;*HEADER CRC 1S RESTORED FROM A SUBROUTINE 


MOV #52525,-(SP) ;DATA TO BE READ 
MOV #256. ORS ; COUNTER 
MOV #D1SK, »RO START OF SIMULATED DISK DATA 


MOV (SP), (RO)¢ :MOVE IN DATA ON TO SIMULATED DISK 
DEC R5 ; COUNT 
BNE 1$ ;BRANCH IF 256 NOT COMPLETE 
TST (SP)+ ;UNDO -(SP) 
CMP (RO)+,(RO)+ ; JUMP OVER THE TWO ECC WORDS 
MOV #i5., RS :1 DATA GAP 
314 TOLERANCE GAP 
CLR (RO) + :CLEAR DATA GAP, AND 
DEC R5 :TGLERANCE GAP 
BNE 2$ ;BRANCH IF NOT COMPLETE 
JSR PC ,aMFILLEC INSERT THE TWO ECC WORDS ON THE DISK 


7 1N THE CORRECT PLACE 
>*THESE ARE FOR ECC TEST ONLY 


MOV #-1,aaTSECC THIS 1S AN ECC TEST 

CLR a#POSiTl ;CLEAR ERROR POSITION COUNTER 
MOV @#NCODE ,A#NCOUNT ; TEMPORARY N-CODE COUNTER 

MOV Q@#HARDER,@#HADTMP ; TEMPORARY HARD ERROR COUNTER 
CLR a#GECCl ECC LOW ORDER TO BE GENERATED 
CLR a#GECC2 ;ECC HIGH ORDER TO BE GENERATED 
CLR @#DATENV CLEAR DATA ENVELOPE CLOCK COUNT 
CLR a#ZCODE CLEAR LEADING ZEROS CLOCK COUNT 


;*THESE ARE TO SETUP FOR DISKLESS USE ONLY 
MOV #FMT22,Q8CYL i16 BITS PER WORD 


CYLINDER 0, FORMAT 16 BITS 
MOVB #0,a#SECOTR+1 “TRACK 0 


SEQ 0165 


on 


CZRJHDO,RPO4/5/6 DSKLS CTRLR2 


CZRJHD.P12 


043124 


043126 
043134 
043142 


043150 


043206 


043214 
043220 
043224 


043230 


043242 


01-MAR-79 09:10 


012737 
012737 
012737 


005077 
004737 
104401 


000000 
013711 
005037 
004737 


000000 


047332 


152652 
052532 
010040 


046116 
177374 


010000 


151550 


MACY11 30A(1052) 
156 


054772 
054774 
043316 


151566 
151562 


000001 
151552 


K 13 
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READ ECC ENABLED 3( 


MOVB #0 ,a#SECOTR ;SECTOR 0 


MOV #0 ,aaKEY! ;KEY1=0 
MOV aaKEY2 sKEY2=0 
MOV #256. ,a#DAWORD ;NO. OF DATA WORDS 
CLR amx ;THIS IS A READ COMMAND 
i RS,aa#cCRC 3GO TO CALCULATE CRC 
YL 
wCRC 


st*THIS 1S TO INSERT ERROR 

z*THE DISK DATA IS IN LOCATION STARTING FROM ‘DISK’ 
ins aa OF THE ERROR CAN BE CHANGED BY CHANGING 
3*TH V 


MOV #152652 ,a#D1SK+44; INSERT ERROR IN POSITION 296 THRU 304 
;1N WORD NUMBER 19 

MOV #52532, a#D1SK+46; INSERT ERROR IN POSITION 305 THRU 308 
7 1N WORD NUMBER 20 

MOV #4128. ,a#8$ ; INSERT POSITION REG. 


;*THESE ARE REGULAR SETUPS 


JSR PC ,a#CLDISK ;SETUP GENERAL REGISTERS 

MOV #-256.-4.,aRHWC 3256. DATA 4 HEADER WORDS 

MOV WREINTO,A@RHBA ;STARTING ADDRESS OF READ BUFFER 
MOVB #0,-(SP) :1N LOWER BYTE GET SECTOR 

MOVB #0,1(SP) ;GET TRACK IN HIGHER BYTE 

MOV (SP)+, @RHDST ;TRACK/SECTOR IN RHDST 


MOV #FMT22,aRHOF 316 BITS PER WORD 
ECC CORRECTION NOT INHIBIT 
;BECAUSE ECC IS NOT GOING 
;T0 BE CHECKED 


CLR @RHCA CYLINDER 0 
JSR PC ,a#CHECKT ;CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T 
TYPE ,CPHALT ;CANNOT CONTINUE TESTING IF ANY OF THE 
;ABOVE BITS DON'T = 1 OR OTHERS ARE STUCK @ 1 
HALT ;STOP THE TEST 
MOV Q#REFOR AR ;READ HEADER AND DATA=72 
CLR a#ERFLGS ;CLEAR ERROR FLAG 
JSR PC ,a#COMHD ;READ HEADER AND DATA 


;1F THERE ARE READ ERRORS THEN 
;ECC WILL NOT BE CHECKED 


:*1F THE PROGRAM COMES BACK HERE WITHOUT os PRINTOUTS 
>*FROM THE ‘‘COMHD'’ ROUTINE THAT MEANS SECTOR GAP, 
S*FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND 

;*SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY 

: *DETECTED 

[*HEADER AND DATA ARE 10 BE CHECKED. 

7*IN CHECKING READ DATA THE WRITE FROM BUFFER 

pe'WRFROM' 1S FILLED WITH EXPECTED DATA AND 
;*COMPARISONS ARE MADE 


SEQ 0166 


CZRJHDO,RPO4/5/6 DSKLS CTRLR2 


CZRJHD.P12 


043246 


043266 
043270 


043272 


043310 


043312 
043316 


043320 
043324 


043332 
043334 


043336 


043420 


043422 
043430 


O01-MAR-79 09:10 


005737 


104032 


013746 


104032 


004037 
000000 


004737 
022737 


001401 
104036 


012737 
012737 


015124 


045616 


100000 015034 


050620 
174000 
015064 


051242 


045616 


100100 015034 


046350 
005123 


015220 


0 
000000 
000000 


000001 


052525 


152652 015274 
052532 015276 


MACY11 30A(1052) 
166 


6$: 


7$: 
8$: 


9$: 


3$: 


24-MAY-79 
READ ECC ENABLED 3C 
TST a#ERFLGS 
BNE TS167 
JSR PC ,a#PUTREG 
CMP #OCK ,a#ERI 
BEQ 6$ 
ERROR 32 
MOV @#GECC1,-(SP) 
BIC #174000, (SP) 
CMP (SP)+,a#EC2 
BEQ 7$ 
ERROR 32 
JSR RO, a#ECORR 
- WORD 
JSR PC ,a#PUTREG 
CMP WOCKIECH, a#ERI 
BEQ 9$ 
ERROR 36 
JSR PC ,a#CHECKE 
TYPE ,CPHALT 
HALT 
MOV #WRFROM,RO 
MOV #WO'FMT22,(RO)+ 
MOVB #0,-(SP) 
MOVB #0,1(SP) 
MOV (SP)+,(RO)+ 
MOV #0, (RO)+ 
MOV #0, (RO)+ 
MOV #256.,R1 
MOV #52525 ,R2 
MOV +f (RO) + 
DEC 
BNE 5s 


L 13 
15:07 PAGE 169 


¢ ANY ERRORS ALREADY THERE 
IF ae 


; STERS 

[ONLY DATA CHECK ERROR SHOULD BE SET 
;BRANCH IF YES 

;32 BIT ECC REGISTER SHOULD BE NON 


: ZERO 

:ONLY 11 OF THE 32 BITS CAN BE SEEN 

7 IN THE PATERN REGISTER 

:DCK SHOULD BE SET IN RHERI 

;GET PATTERN ety ER 

:KEEP ONLY 11 BIT 

; COMPARE PATTERN REGISTER 

;BRANCH IF GOOD 

311 BITS OF THE 32 BIT ECC REGISTER INCORRECT 


3G0 TO ECC CORRECTION PROCESS 
EXPECTED POSITION REG. WHEN CORRECTION 
1S COMPLETE 


SAVE REGISTERS 

sWITH ERRORS INSERTED IN BIT POSITION 21 

; THRU 32 HARD ERROR BIT SHOULD SET 

:BRANCH IF GOOD 

;WITH ERROR INSERTED IN BIT POSITION 21 THRU 
332 HCE SHOULD SET 


sCHECK THAT DVA,RDY,DPR,DRY = 1 
:CANNOT CONTINUE IF THEY DON'T 
;STOP THE TEST AND RESTART PROGRAM 
sGETTING READY TO FILL EXPECTED DATA 
sCYLINDER 0 

sIN LOWER BYTE GET SECTOR 

3;GET TRACK IN HIGHER BYTE 

sGET TRACK/SECTOR IN BUFFER 

sKEY1 IN BUFFER 

sKEY2 IN BUFFER 

yen WORD COUNTER 


:DATA 

DATA INTO BUFFER 

COUNT 

"BRANCH 1F 256 NOT DONE 


:*ONLY GOOD DATA HAS BEEN PUT IN ‘WRFROM’ 
:*NOW THE INSERTED ERROR WILL BE PUT IN 


#152652, amie ~ INSERT ERROR IN ag 2 hb 296 THRU 304 


MOV 
MOV 


WORD NUMBER 19 IN DAT 


#52532, avunr none; INSERT ERROR IN POSITION 305 THRU 308 


N WORD NUMBER 20 IN DATA 


SEQ ert 


M13 
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CZRJHD.P12  01-MAR-79 09:10 166 READ ECC ENABLED 3¢ SEQ 0168 
7434 043436 006737 045616 JSR. PC, as#PUTREG ZSAVE REGISTERS 
03 043442 005037 015124 CLR avERFLGS =CLEAR ERROR FLAG 
7437 
7438 s*NOW READ DATA BUFFER WILL BE CHECKED 
7440 043446 004037 047020 JSR RO, a#COMPAR > CHECK 
7441 043452 015220 WRF ROM :GOOD BUFFER 
7442 043454 016264 REINTO : TEST BUFFER 
7443 043456 000404 4+256. “NUMBER OF WORDS CHECKED 
7444 043460 043466 4$ “RETURN POINT FOR ERROR HEADER 
rans 043462 043472 5$ :RETURN POJNT FOR ERROR DATA 
Pear 043464 043476 1S$167 ; sRETURN FOR GOOD COMPARISON 
7449 043466 104004 4$: ERROR 4 :READ NEXT ERROR 
7450 043470 000207 RTS PC :RETURN TO "'COMPAR"’ 
7451 043472 104005 5$: ERROR 5 :WORD NOS 1 TO 4 ARE 
7452 sHEADER WORDS 
7453 =5 10 260 ARE DATA WORDS 
7454 043474 000207 RTS PC >RETURN TO "‘COMPAR"’ 


CZRIHDO,RPOG/S/6 DSKLS yay 
01-MAR-79 09:10 


CZRIHD.P12 


043476 
043500 


043504 


043512 
043516 


043540 


043544 
043546 
043550 


043552 


043556 


043620 


043624 


000004 
012706 


012737 


012705 


005020 
005305 
001375 


004737 


005037 


012737 


001000 
000067 


052525 
000400 
054726 


000017 


051414 


177777 


050640 


010000 


MACY11 30A(1052) 
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017330 


015142 


050630 
050642 


053010 


N13 
24-MAY-79 15:07 PAGE 171 
READ ECC ENABLED 3C 


;teeeerererererererererererereteeeereretereretetetetenereteeetes 


#TEST 67 READ ECC ENABLED 5D 
5° THIS 1S AN ECC READ DATA TEST 
hd ERROR CORRECTION IS ENABLED 
ze A NON CORRECTABLE ary: 1S INSERTED IN BIT POSITION 32 AND 4096 
ye 4096 1S THE LAST DATA BIT 
7° GOOD DATA USED 1S 256 WORDS OF 52525 
7* COMMAND IS GIVEN FOR CYLINDER 0 FORMAT 16 BITS PER WORD 
ha TRACK 0, SECTOR 0 KEYS 0 READ HEADER AND DATA 
;,eeeerererererereereereereeeeeeeeeeeeaeeeeeeeeeeeeeeeeeeeeeateee 
TST67: SCOPE 
MOV STACK ,SP ;RESET STACK 
MOV STINO,Q#TSTNM = ;THIS SAVES TEST NUMBER 
;*SETUP FOR WHAT 1S TO BE READ 
:*HEADER CRC 1S RESTORED FROM A SUBROUTINE 
MOV As bgt -(SP) DATA TO BE READ 
MOV a ; COUNTER 
MOV #018K, RO START OF SIMULATED DISK DATA 
1$: MOV (SP), (RO)+ ;MOVE IN DATA ON TO SIMULATED DISK 
DEC R5 ; COUNT 
BNE 1$ ;BRANCH IF 256 NOT COMPLETE 
TST (SP)+ ;UNDO -(SP) 
CMP (RO)+,(RO)+ ; JUMP OVER THE TWO ECC WORDS 
MOV oe i! DATA GAP 
314 TOLERANCE GAP 
2$: CLR (RO) + :CLEAR DATA GAP, AND 
DEC R5 ; TOLERANCE GAP 
BNE 2$ ;BRANCH IF NOT COMPLETE 
JSR PC, aar ILLEC INSERT THE TWO ECC WORDS ON THE DISK 
IN THE CORRECT PLACE 
*THESE ARE FOR ECC TEST ONLY 
MOV #-1 ,a#TSECC ;THIS IS AN ECC TEST 
CLR a#POSiTl :CLEAR ERROR POSITION COUNTER 
MOV @ANCODE ,QMNCOUNT ; TEMPORARY N-CODE COUNTER 
MOV Q@#HARDER,Q#HADTMP ; TEMPORARY HARD ERROR COUNTER 
CLR aaGECCl ;ECC LOW ORDER TO BE GENERATED 
CLR a#GECC2 ;ECC HIGH ORDER TO BE GENERATED 
CLR Q#DATENV :CLEAR DATA ENVELOPE CLOCK COUNT 
CLR a#ZCODE CLEAR LEADING ZEROS CLOCK COUNT 
;*THESE ARE TO SETUP FOR DISKLESS USE ONLY 
MOV WEMT22 ,Q8CYL 316 BITS PER WORD 


CYLINDER 0, FORMAT 16 BITS 





SEQ 0169 


CZRJHDO,RPO4/5/6 DSKLS CTRLR2 
01-MAR-79 09:10 


CZRJHD.P12 


043702 


043704 
043712 
043720 


043726 


043764 


043772 


043776 
044002 


044006 
044010 


044014 
044020 


ooNNN NNN 


005077 


004737 
104401 


000000 
013711 


005037 
004737 


000000 


047332 


010000 


150772 


046160 
005123 


MACY11 30A(1052) 
167 


054730 
055724 
044074 


151010 
151004 


000001 
150774 


B 14 
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READ ECC ENABLED 3D SEQ 0170 
MOVB  #0,a#SECOTR+1 ;TRACK 0 
MOVB #0. a#SECOTR ‘SECTOR 0 
MOV #0. ance ;KEY1=0 
MOV #0. aw#KEY2 KEY2=0 
MOV #256. CSZDAVORD :NO. OF DATA WORDS 
CLR amx THIS 1S A READ COMMAND 
Isr RS, a#CRC “G0 TO CALCULATE CRC 
YL 
WCRC 


s*THIS IS TO INSERT ERROR 

s*THE DISK DATA 1S IN LOCATION STARTING FROM ‘DISK* 
bl, Bp a) hia OF THE ERROR CAN BE CHANGED BY CHANGING 
3tTH V 


MOV #1525 
MOV #1525 
MOV #4128.,a 


25,@MD1SK+2 ;FORCE ERROR ON BIT NUMBER 32 
25, ,@#DISK+<255.#2>;FORCE ERROR IN BIT 4096 
#8$ INSERT POSITION REG. 


;*THESE ARE REGULAR SETUPS 


JSR PC ,a#CLDISK ;SETUP GENERAL REGISTERS 
MOV #-256.°4.,a@RHWC 5256. DATA 4 HEADER WORDS 
MOV WREINTO,@RHBA ;STARTING ADDRESS OF READ BUFFER 
MOVB #0,-(SP) ; IN LOWER BYTE GET SECTOR 
MOVB #0,1(SP) :GET TRACK IN HIGHER BYTE 
MOV (SP)+, @RHDST ;TRACK/SECTOR IN RHDST 
MOV #FMT22,@RHOF 16 BITS PER WORD 
ECC CORRECTION NOT INHIBIT 
;BECAUSE ECC 1S NOT GOING 
;T0 BE CHECKED 


CLR @RHCA CYLINDER 0 
JSR PC ,a#CHECKT CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T 
TYPE ,CPHALT ; CANNOT CONTINUE TESTING IF ANY OF THE 
;ABOVE BITS DON'T = 1 OR OTHERS ARE STUCK a 1 
HALT :STOP THE TEST 
MOV Q#REFOR ARI ;READ HEADER AND DATA=72 
CLR a#ERFLGS ;CLEAR ERROR FLAG 
JSR PC ,a#COMHD ;READ HEADER AND DATA 


;1F THERE ARE READ ERRORS THEN 
ECC WILL NOT BE CHECKED 


:*1F THE PROGRAM COMES BACK HERE WITHOUT ERROR ener 
>*FROM THE ‘‘COMHD'’ ROUTINE THAT MEANS SECTOR GAP 

TtFIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND. 

s*SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY 

: *DETECTED 

:*HEADER AND DATA ARE TO BE CHECKED. 

i*1N CHECKING READ DATA THE WRITE FROM BUFFER 

;*'WREROM' IS FILLED WITH EXPECTED DATA AND 
:*COMPARISONS ARE MADE 


on 


CZRJHDO ,RPO4/5/6 DSKLS ps 


CZRJHD.P12 01-MAR-79 09:1 
7568 

7569 044024 005737 015124 
7570 044030 001111 

7571 044032 004737 045616 
7572 044036 022737 100000 015034 
7573 044044 001401 

7574 044046 104032 

7575 

7576 

7577 

7578 

7579 044050 013746 050620 
7580 044054 042716 174000 
7581 044060 022637 015064 
7582 044064 001401 

reas 044066 104032 

7585 044070 004037 051242 
7586 044074 000000 

7587 

7588 

7589 

7590 

7591 044076 004737 045616 
£404 044102 022737 100100 015034 
7594 044110 001401 

7595 044112 104036 

7596 

7597 

7598 

7599 

7600 

7601 044114 

7602 044114 004737 046550 
7603 044120 104401 005123 
7604 044124 000000 

7605 044126 012700 015220 
7606 044132 012720 010000 
7607 044136 112746 000000 
7608 044142 112766 000000 000001 
7609 044150 012620 

7610 044152 012720 000000 
7611 044156 012720 000000 
7612 044162 012701 000400 
7613 044166 012702 052525 
7614 044172 010220 

7615 044174 005501 

7616 044176 001375 

7617 

7618 

7619 

7620 

7621 044200 012737 152525 0 
7622 044206 012737 152525 0 


MACY11 30A(1052) 
167 


6$: 


- 7$: 
8$: 


9$: 


3$: 


24=MAY-79 
READ ECC ENABLED 30 
TST avERFLGS 
BNE $170 
JSR PC, a#PUTREG 
CMP #OCK AMER! 
BEQ 6$ 
ERROR 22 
MOV Q#GECC1,-(SP) 
BIC #174000, (SP) 
CMP (SP)+,a#EC2 
BEQ 7$ 
ERROR 32 
JSR RO,a#ECORR 
~ WORD 
JSR PC, ,a#PUTREG 
CMP WDOCK'ECH, AMER 
BEG 9$ 
ERROR 36 
JSR PC ,a#CHECKE 
TYPE ~CPHALT 
HALT 
MOV #WREROM,RO 
MOV #O'FMT22,(R0)+ 
MOVB #0.-(SP) 
MOVB #0,1(SP) 
MOV (SP)+, (RO)+ 
MOV #0, (RO)+ 
MOV #0, (RO)+ 
MOV #256. ,R1 
MOV #52525 ,R2 
MOV R2,(RO)+ 
DEC R1 
BNE 3$ 


C 14 
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SEQ 0171 


; ANY ERRORS ALREADY THERE 
BRANCH IF YES 


SAVE REGISTERS 

SONLY DATA CHECK ERROR SHOULD BE SET 
:BRANCH IF YES 

332 BIT ECC REGISTLR SHOULD BE NON 


SONLY 11 OF THE 32 BITS CAN BE SEEN 

IN THE PATERN REGISTER 

:DCK SHOULD BE SET IN RHER1 

:GET PATTERN REGISTER 
;KEEP ONLY 11 BITS 
; COMPARE PATTERN REGISTER 
BRANCH IF GOOD 
311 BITS OF THE 32 BIT ECC REGISTER INCORRECT 


:GO TO ECC CORRECTION PROCESS 
sEXPECTED POSITION REG. WHEN CORRECTION 
:1S COMPLETE 


;SAVE REGISTERS 

sWITH ERRORS INSERTED IN BIT POSITION 32 
;AND 4096 HARD ERROR BIT SHOULD SET 

;BRANCH IF GOOD 

WITH ERROR INSERTED IN BIT POSITION 21 THRU 
;32 HCE SHOULD SET 


;CHECK THAT DVA,RDY,DPR,DRY = 1 
;CANNOT CONTINUE IF THEY DON'T 
;STOP THE TEST AND RESTART PROGRAM 
;GETTING READY TO FILL EXPECTED DATA 
CYLINDER 0 

:1N LOWER BYTE GET SECTOR 

:;GET TRACK IN HIGHER BYTE 

;GET TRACK/SECTOR IN BUFFER 

;KEY1 IN BUFFER 

sKEY2 IN BUFFER 

ath WORD COUNTER 


;DAT 

‘DATA INTO BUFFER 

; COUNT 

;BRANCH IF 256 NOT DONE 


7*ONLY GOOD DATA HAS BEEN PUT IN ‘WREROM® 
;*NOW THE INSERTED ERROR WILL BE PUT IN 


#152525 ,a#WRFROM*+<5*2>  ; INSERTED ERROR IN BIT 532 
#152525 ,a#WRFROM*+<259,*#2> ; INSERT ERROR IN BIT 4096 


MOV 
MOV 


Oo 


CZRJIHDO,RPO4/5/6 DSKLS CTRLR2 
CZRJHD.P12 0 


044214 
044220 


044224 


044240 
044242 
044244 


044246 
044250 


044252 


01-MAR-79 09:1 


005037 015124 
004737 045616 


004037 047020 
015220 


044250 
044254 
104004 


000207 
104005 


000207 


MACY11 30A(1052) 
167 


4$: 
5$: 
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24-MAY-79 
READ ECC ENABLED 3D 
CLR a#ERFLGS ;CLEAR ERROR FLAG 
JSR PC ,a#PUTREG ;SAVE REGISTERS 


> *NOW READ DATA BUFFER WILL BE CHECKED 
RO, a¥COMPAR ; CHECK 


JSR 


est "BUFFER (CHANGED) 
:NUMBER OF WORDS CHECKED 


:RETURN POINT FOR ERROR HEADER 


RETURN POINT FOR ERROR DATA 
;RETURN FOR GOOD COMPARISON 
;READ NEXT ERROR 

+ RETURN TO ‘COMPAR’ 


DS 
:5 TO 260 ARE DATA WORDS 
;RETURN TO ‘’COMPAR’ 


SEQ 0172 


aon 


CZRJHDO ,RPOS/5/6 DSKLS CreUne 


CZRIHD.P12 


044254 


044256 
044264 


044270 
044274 
044300 
044304 
044310 
044316 
044322 
044330 
044334 


044336 
044342 


044344 


044346 
044350 
044354 
044362 
044304 


01-MAR-79 09:1 


000004 


000410 


022626 
004737 
022737 
001401 
104021 


000070 
001000 


046116 
014744 
044346 
000340 
000200 
000300 
046474 
001200 


045616 


045616 
004200 


MACY11 30A(1052) 


017330 


177776 
001200 


015032 
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CURSORY INTERRUPT LOGIC TESTS SEQ 0173 


-SBTTL CURSORY INTERRUPT LOGIC TESTS 


spetreerereeereeeeerrrrrtrrertrrrrrreetereeeeKeReeeeeeeAAe TATA Tee 


s*TEST 70 


;* 
7* 
;* 
“* 
is 


170: 


RPTRP1: 


PROGRAM INTERRUPT 


PROGRAM INTERRUPT IS TESTED BY SETTING RDY AND IE 
IN RHCS1 AT THE SAME TIME 

THIS SHOULD INTERRUPT THROUGH  Wbetge 254 

THE PROCESSOR PRIORITY IS SET TO 4 


SCOPE 


-eeteeeeeeeeeeneeeeeeeetereeerererereereteeerreteteriteaeeteretereeee 


#TINO,Q#TSTNM ;THIS SAVES TEST NUMBER 


#STACK,SP RESET STACK 

PC ,a#CLOISK ;CLEAR DISK 

a#RPVEC,RO ;GET VECTOR ADDRESS 

WRPTRP1,(RO)*  ;SET INTERRUPT VECTOR 

#340, (RO) SET SERVICE ROUTINE PRIORITY 

#200,PS ;SET PROCESSOR PRIORITY 

WROY'IE,aR1 :RDY, IE IN RHSC1 SHOULD CAUSE INTERRUPT 

a4 TIMCNT,a#$TMP1; COUNTER 

aaSTMPl WAIT FOR INTERRUPT 

1$ “BRANCH IF NOT ZERO 
+e THIS 1S ZERO INTERRUPT SHOULD 
;OCCU 

PC ,a#PUTREG ;SAVE REGISTERS 

21 ; INTERRUPT DID NOT OCCUR 

TST71 2 BRANCH TO NEXT TEST 

(SP)+,(SP)+ ;RESTORE STACK 


PC ,a#PUTREG ;SAVE REGISTERS 
#DVA!RDY,aaCS1 i" TE" SHOULD BE LOW 
TST71 BRANCH IF GOOD 
21 SINTERRUPT OCCURRED BUT 
:'1E' FAILED TO RESET 


On 


CZRJHDO,RPO4/5/6 DSKLS Dba 
CZRIHD.P12 10 


044366 


044370 
044376 


044402 
044406 
044412 
044416 
044422 
044430 
044434 
044442 
044446 


044450 
044452 


044454 
044460 


01-MAR-79 


000004 


012737 
012706 


000404 


022626 
004737 
104021 


09: 


000071 
001000 


046116 


001200 


045616 


MACY11 


017350 


177776 
001200 
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PROGRAM INTERRUPT 


sy eeteerreerererrrereerereerererereerererenteeeeeeeeeeteeeeeTereee 


:*TEST 71 INTERRUPT AT PROCESSOR AND DISK PRIORITY SAME 
Tied PROCESSOR PRIORITY IS SET AT 5 (SAME AS THE DISK) 
3¢ 1E AND RDY IS SET. THIS SHOULD NOT INTERRUPT 
sie eerererrereerererererereererererererenenenaenaneeeeereererTeee 
TST71: SCOPE 
MOV #TTNO,a4TSTNM sTHIS SAVES TEST NUMBER 
MOV ASTACK,SP sRESET STACK 
JSR PC, ,a#CLDISK ;CLEAR DISK 
MOV a#RPVEC,RO sGET VECTOR ADDRESS 
MOV #RPTRP2,(RO)+ ;SET INTERRUPT VECTOR 
MOV #340, (RO) sSET SERVICE ROUTINE PRIORITY 
MOV #240,PS ;SET PROCESSOR PRIORITY 
MOV WROY'IE, ari “ROY, IE IN RHSC1 SHOULD CAUSE INTERRUPT 
MOV aeTIMCNT, a#S$TMP1; COUNTER 
DEC aavSTMPl sWAIT FOR INTERRUPT 
BNE 1$ BRANCH IF NOT ZERO . 
2 ojo THIS IS ZERO INTERRUPT SHOULD 
: U 
BR TST72 ; NO INTERRUPT SO BRANCH 
RPTRP2: CMP (SP)+,(SP)¢ sRESTORE STACK 
JSR PC ,a#PUTREG s SAVE REGISTERS 
ERROR 21 s INTERRUPT OCCURRED WITH 


;PROCESSOR STATUS SAME 
;AS DISK 


SEQ 0174 


oa 


dope: yee * DSKLS sey 


D.P 


044462 
044464 
044472 


044476 
044504 
044510 


044564 
044564 
044570 
044572 
044576 


044604 
044604 
044610 
044612 
044616 
044622 
044626 


044630 
044634 
044640 
044644 
044646 
044652 


044656 
044662 
044664 
044670 
044674 
044676 
0447060 
044702 
044706 


01-MAR-79 


000004 
012737 
004737 
012737 
104401 
000425 


013746 
104405 
104401 
000402 


013746 


001413 
005237 


104401 
000137 


005337 


000137 


09:1 


000001 
046116 


000000 
044512 


915112 
044600 


001112 
001112 


001102 
015120 


001100 
045017 
001100 


045014 
022770 


015114 


015112 
015072 


015112 
022770 


MACY11 


001212 


177776 
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INTERRUPT AT PROCESSOR AND DISK PRIORITY SAME 


sp, eeeeeeerrrerererererererererereretenterereteneeeneeeeeetereeeee 
pp eteeeeeerererrrerrererereeeererererereretererenenerenereeertete 


30A(1052) 
171 SEQ 0175 


s*TEST 72 END OF DRIVE 
3° THIS IS THE END OF TEST FOR ONE DRIVE 
s* 1— THERE ARE MORE DRIVES THEN THE PROGRAM 
3* JUMPS TO TEST 5 FOR NEXT DRIVE TEST 
3* END PASS IS REACHED ONLY AFTER ALL DRIVES ARE COMPLETE 
pp eteeererreererererererereereeerrerereeeeAeeteeeReteettereneeees 
18172: SCOPE 
MOV #1,STIMES 3;00 1 ITERATION 
JSR PC ,a#CLDISK 
MOV #0,PS a Tie4 at PS 10 0 
TYPE rod s TYPE ASCIZ STRING 
R ;GET OVER THE ASCIZ 
Th ta ASCI2Z o15><12>/10TAL ERRORS ON THIS PASS ON UNIT NO./ 
643: 
bee Q@#UNIT,-(SP) ;GET READY TO TYPE UNIT NUMBER 
YPDS 
TYPE 67% 33: TYPE ASCIZ STRING 
BR 66% 3:GET OVER THE ASCIZ 
33678: ASCIZ = 
66$: 
MOV Q@#SERTTIL,-(SP) ;GET READY TO TYPE NUMBER OF ERRORS 
TYPDS 
CLR a*#SERTIL ;CLEAR TOTAL NUMBER OF ERRORS 
CLR aaSTSTNM ;CLEAR TEST NUMBER 
TST a#SELECT sSTARTING FROM 200 ? 
BEQ 3$ s TEST NEXT DRIVE IF SO 
INC a#SPASS > INCREASE PASS COUNT 
TYPE » S9ENDMG ; TYPE END PASS @# 
MOV a#SPASS,-(SP) 
TYPDS 
TYPE » SENULL 
JMP aatstTs sCONTINUE TESTING THIS DRIVE --ee+------- > 
3$: DEC @#NOUNITS sNO. OF UNITS PRESENT DECREMENTED 
BEQ $SEOP ;BRANCH IF ALL DRIVES COMPLETE 
MOV a#UNIT,RO ve! UNDER TEST 
MOV #UNITS,RI1 3; TABLE 
1$: CMP (R1)4+,R0 31S THIS UNIT JUST TESTED 
BEQ 2$ BRANCH If YES ' 
BR 1$ ;BRANCH IF NO \ 
2s: MOV (R1) .a#UNIT “THIS 1S NEXT UNIT 
JMP aatsts sTEST NEXT DRIVE ceeeeeeeeeeeeeee-=- > 


on 


HD. 


044712 


045024 
045032 


CZRJHDO,RP04/5/6 DSKLS ose 
CZRJHD.P12 :10 


01-MAR-79 09 


000004 


000240 
000137 
021032 

377 

015 
050040 
000045 


045017 
001100 


045014 
000042 


377 
042412 
051501 
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001100 


000 
042116 
020123 


Em OF ORivE SEQ 0176 
“SBTTL 

"SBTTL  ***SUBROUTINES*® 

SBTTL 


-SBTTL END OF PASS ROUTINE 


ppeeeeeeererrerreeeerereteerereretrerereeeneeeeeeeeeeeeee eter ee 
>* INCREMENT THE PASS NUMBER ($PASS) 

*TYPE “‘END PASS #XXXXX' (WHERE XXXXX 1S A DECIMAL NUMBER) 

;*1F THERES A MONITOR GO TO IT 

:*1F THERE ISN'T JUMP TO TST1 


$SEOP: 
SCOPE 
CLR STSTNM :;ZERO THE TEST NUMBER 
CLR STIMES 3;ZERO THE NUMBER OF ITERATIONS 
INC $PASS >; INCREMENT THE PASS NUMBER 
BIC #100000,$PASS ::;DON'T ALLOW A NEG. NUMBER 
DEC (PC)+ 3; LOOP? 


SEOPCT: .WORD 1 


BGT $DOAGN ss Ves 
MOV (PC)+,a(PC)+ > ;RESTORE COUNTER 
SENDCT: . WORD 1 
SEOPCT 
TYPE » S9ENDMG >; TYPE "‘END PASS #°' 
MOV $PASS,-(SP) 3; SAVE SPASS FOR TYPEOUT 
TYPDS 3:G0 TYPE--DECIMAL ASCI] WITH SiGN 
TYPE » SENULL 3; TYPE A NULL CHARACTER 
$GET42: MOV a#42,RO 3:;GET MONITOR ADDRESS 
BEQ $SDOAGN ;;BRANCH IF NO MONITOR 
RESET :;CLEAR THE WORLD 
SENDAD: JSR PC,(RO) | 3:60 TO MONITOR 
NOP ;; SAVE ROOM 
NOP 37 FOR 
NOP s;ACT11 
SDOAGN: 
JMP a(PC)+ 3: ;RETURN 
SRTNAD: .WORD al 


SENULL: .BYTE .71,0 >:NULL CHARACTER STRING 
SENDMG: .ASCIZ <183<19>/END PASS #/ 


sp eereecrecesersecesscersesseceseseesseeseeseseressersseeeseneeeTsS 


s*HERE 1S A DETAILED EXPLAINATION OF HOW THE LOOP ON ERROR WORKS. 
ON HITTING AN ERROR IF THE LOOP ON ERROR SWITCH IS SET, THE 
7*PROGRAM GOES BACK = USUALLY BACK TO THE BEGINNING OF THE TEST. 


CZR 


JHD.P12 


045034 


045036 
045036 
045042 
045046 


045112 


045124 


045156 
045156 
045162 
045164 
045170 
045174 


045252 
045252 
045256 


045320 
045320 
045324 


045374 


045412 


045452 
045452 
045456 


CZRJHDO,RPO4/5/6 DSKLS yey 


O1-MAR-79 09:1 


000000 


005037 
104401 
000421 


013746 


000414 


013746 
104402 
104401 
104401 
000426 


104401 
000420 


104401 
000423 


104412 


000417 


104401 
000441 


177776 
045050 


017330 
045126 


001110 


001223 
045176 


045260 


045326 


000002 
001106 
045414 


045460 
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END OF PASS ROUTINE SEQ 0177 


;*WHEN THIS OPERATOR SELECTABLE eo LOOP 1S USED THEN THE POINT 
;*THE PROGRAM GOES BACK TO CAN BE CHANGED. 

;*THE RESTRICTIONS TO THE POINT WHERE THE PROGRAM CAN GO ARE: - 

:*1, 11 MUST BE WITHIN THE TEST UNDER CONSIDERATION 

;*2. LOOP ON ERROR SWITCH MUST BE SET 

:*3. THE ERROR MUST OCCUR WITHIN THE TEST UNDER CONSIDERATION 

:*1F THE ERROR DOES NOT OCCUR WITHIN THE TEST UNDER CONSIDERATION 
7*THE PROGRAM WILL REVERT TO NORMAL OPERATION. HOWEVER, IF LOOP ON 
;*TEST SWITCH IS SET AND THIS OPERATOR SELECTABLE SCOPE LOOP 1% USED 
;*THEN THE PROGRAM WILL LOOP BACK TO THE SELECTED POINT WHEN IT 
;>*COMES TO THE END OF THE TEST UNDER CONSIDERATION. 

:* 


:*AFTER LOOPING FOR SOME TIME IF THE LOOP SWITCH IS PUT DOWN THEN 
;*NORMAL OPERATION WILL CONTINUE. 


SPUR RARER ERATE AEE AE TATA AAA TATA TARA TATA AA ATA T ATA 


TESTAD: 0 : sFIRST ADDRESS OF TEST 
OPERSEL: 
CL PS sMAKE PROCESSOR STATUS ZERO 
TYPE ony +t ty ASCIZ STRING 
BR 64% sGET OVER THE ASCIZ 
Fg eASCIZ <15><12>/THE PROGRAM WAS IN TEST NUMBER / 
4$: 
MOV a4 TSTNM,-(SP) ;GET READY TO TYPE TEST 
TYPOC ; NUMBER 
TYPE ,67$ ii TYPE ASCiZ STRING 
BR 66% ;GET OVER THE ASCIZ 
ge eASCIZ <15><12>/THE LOOP’ BACK PC WAS / 
66$: 
MOV Q#SLPERR,-(SP) ;GET READY TO TYPE LOOP BACK PC 
TYPOC 
TYPE  SCRLF 


TYPE ,09% is TYPE ASCIZ STRING 
BR 68$ GET OVER THE ASCIZ 
ag LASCIZ <15><12>/SET LOOP ON ERROR OR LOOP ON TEST SWITCH/ 


TYPE .71% is TYPE ASCIZ STRING 
BR 708 ;GET OVER THE ASCIZ 
ao -ASCIZ C189<12>/T ¥PE THE FIRST PC OF THE TEST/ 


TYPE .73% ii TYPE ASCIZ STRING 
BR 72$ ;GET wr THE ASCIZ 
ha LASCIZ <15><12>/ FOLLOWED BY A CARRIAGE RETURN /<15><12> 


RDOCT 

ADD #2, (SP) ;GET LPADR 

MOV (SP)+,@#SLPADR 

TYPE .75$ ii TYPE ASCIZ STRING 


BR 74$ GET OVER THE ASCIZ 
3:75$: .ASCIZ C18><12>/ TYPE THE PC WHERE YOU WANT/ 


TYPE .77% ie TYPE ASCIZ STRING 
BR 76$ ;GE1T OVER THE ASCIZ 
3377$: .ASCIZ <15><12>/ THE PROGRAM TO LOOP BACK TO FOLLOWED BY A CARRIAGE RETURN /<1 


CZRJHDO,RPO4/5/6 DSKLS CTRLR2 


CZRJHD.P12 


045562 
045570 


045574 
045600 


045604 


045610 
045614 


01-MAR-79 09:10 


104412 
012637 
013746 


005037 
005037 


005037 


005037 
000002 


015144 
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END OF PASS ROUTINE SEQ 0178 
768: 

RDOCT 

MOV (SP)+,a#@$LPERR ;GET LPERR 

MOV @#SLPADR,-(SP) 

; THIS CLEARS UP GARBAGE 

CLR @A#NOSYNC sCLEAR FLAG FOR HEADER ERROR COMMANDS 

CLR av TSECC 7CLEAR FLAG FOR ECC TEST 


WHEN =177777 IT IS AN ECC TEST 
;WHEN =0 IT 1S NOT AN ECC TEST 


CLR a#TSECCG sEVEN IN AN ECC TEST EVERY CLOCK 
1S NOT TO GENERATE ECC ° 
;1F =177777 GENERATE ECC 
:1F =0 DO NOT GENERATE ECC 

CLR @#TESDTE ;DRIVE TIMING ERROR TEST 

RTI 


CZRJHDO,RPO4/5/6 DSKLS ep MACY11 "in att 
CZRJHD.P12 10 


045616 


045654 


01-MAR-79 09: 


000207 


PUTREG: 
014750 
015024 
000023 

108: 
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END OF PASS ROUTINE 


-SBTTL SAVE REGISTERS ROUTINE 


pp eeeeeererrerrereneerererereeeereererererenterereeeneeeTereTeS 
; THIS SAVES THE CONTENTS OF ALL HARDWARE REGISTERS 
:1N MEMORY LOCATIONS TAGED FROM “‘WC'’ TO “EC2"’ 


STHIS 1S DONE SO THAT COMPARES ARE DONE WITH SAVED LOCATIONS 
AND NOT THE REGISTERS THEMSELVES. THIS WILL MAKE 
ERROR PRINTOUTS FOR GOOD AND BAD DATA ALWAYS DIFFRENT 


sete eererrerereerererereeererererererereneneeanaeeereaeeeeeneeee 


RO,-(SP) ;;PUSH RC ON STACK 
R1,-(SP) ;;PUSH R1 ON STACK 
R2,-(SP) ;;PUSH R2 ON STACK 

WRHWC RO STARTING ADDRESS OF REG 
#wC,R1 ;STARTING ADDRESS OF SAVE LOCATIONS 
WRHCC-RHWC+2/2,R2 ;NUMBER OF REG. INTO R2 
ere (R1)+ ; SAVE HARDWARE REG. 

10$ 

(S$P)+,R2 ;;POP STACK INTO R2 
(SP)+,R1 7;POP STACK INTO R1 
(SP)+,R0 ;;POP STACK INTO RO 

PC 


SEQ 0179 


CZRJHDO,RPO4/5/6 DSKLS CTRLR2 


CZRJHD.P12 


045656 
045660 
045662 


045664 


046032 


01-MAR-79 09:10 


000000 
000000 
000000 


012537 


000207 


045656 
045662 


045734 


045744 


001124 
177630 


MACY11 30A(1052) 


046076 


001124 


001126 
001126 
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SAVE REGISTERS ROUTINE 


» SBTTL 


FLOAT 1 AND O 


sp eeeeeerererrrerereeererererreeetAreeAeeAAeeAReeekeKeKeeATe eee ee 


;*FLOAT A ONE AND A ZERO THRU A DESIGNATED REGISTER 
;*ABSOLUTE ADDRESS OF REG. UNDER TEST IS IN R4 


s,eeeeeerererererereretereeeeereteneerrereReReReeAeeeeKeeeeeeereee 


MASK: 


0 


LERR: 0 
REGADR: 0 


BITST: 


BLT1: 


BLT2: 
BLT3: 


;BITS UNDER TEST 
ERROR HLT ADDRESS 


(R5)+, MASK ;FETCH DATA MASK 
(R5)+, R4 GET ADDRESS OF REG. UNDER TEST 


RS, LERR ;GET ERROR RETURN ADDR. 

a4, R5 ;MODIFY RETURN ADDR. TO JUMP OVER RTS 
#1, R3 INITIALIZE DATA PATTERN 

mC. BLT2 ;OUTPUT FLOATING ZERO 

PC, BLT2 ;OUTPUT FLOATING ONt 


3 SHIFT PATTERN 

BLT1 ;BRANCH IF NOT COMPLETE 
R5 RETURN TO TEST 

R3 ;COMPLEMENT PATTERN 
#BLT3, @#LAD ;SET SCOPE LOOP 
R3,a#$GDDAT ;STORE GOOD DATA 
aeMASK :AND MASK WITH PATTERN 
Q@#MASK, A@#SGDDAT; CLEAR THE REST 

aaMASK sRESTORE MASK 


Q@#SGDDAT,(R4)  ;OUTPUT TO REGISTER 
(R4),@#SBDDAT ;INPUT FROM REGISTER 


a#MASK 

oe @#$BDDAT ;AND MASK OUT RECEIVED DATA 
O#MASK ;RESTORE MASK 
@#SGDDAT,a#SBDDAT;: 1S DATA CORRECT 

1$ ;BR ANCH IF GOOD 

PC, @LERR ;GO TO REPORT ERROR 

be ;LOCAL SCOPE LOOP 


SEQ 0180 


CZRJHDO ,RPOG/5/6 DSKLS CTRLR2 
01-MAR-79 09:10 


CZRJHD.P12 


046034 


046074 


000200 


000002 


M14 
MACY11 30A(1052) 24-MAY-79 15:07 PAGE 1835 
FLOAT 1 AND 0 


~SBTTL CLEAR MEMORY ROUTINE 


*s@@eeeerereereeereeererereerereeeeeeeeeeteeerereteneteretereneeee 


THIS CLEARS ANY BLOCK OF MEMORY 
FILLING 11 WITH ANY DATA 


CALL 
ae RO,CLAREA 


Y 


STARTING ADDRESS OF BLOCK 


Z ;DATA TO BE FILLED 
;*R1 WILL HAVE STARTING ADDRESS OF BLOCK TO BE FILLED 
;*R2 AFTER SUBTRACTION WILL HAVE TWICE NUMBER OF LOCATIONS 
;*R3 WILL HAVE DATA TO BE FILLED 
:*T0 AVOID DIVIDE ROUTINE TWO DECREMENT R2 WILL BE USED 


pyeteeerererererererertererererrereeeeeARAReKaKeeeKeeeeteeeA eee es 


ses e @® @ 2B 2 Be 


CLAREA: 

MOV R1,-(SP) ::PUSH R1 ON STACK 

MOV R2,-(SP) 3;PUSH R2 ON STACK 

MOV R3,-(SP) :;PUSH R3 ON STACK 

MOV (RO)+,R1 3; FROM 

MOV (RO)+,R2 3170 

MOV (RO)+,R3 sDATA 

SUB R1, :NO. OF LOCATIONS MINUS TWO 

ADD #2,R2 ;GET TWICE NO OF LOCATIONS 
1$ MOV R3,(R1)+ sMOVE IN DATA 

DEC R.2 

DEC R2 

BNE 1$ ;BRANCH IF NOT COMPLETE 

MOV (SP)+,R3 :;POP STACK INTO R3 

MOV (SP)+,R2 7;POP STACK INTO R2 

MOV (SP)+,R1 ::POP STACK INTO R1 

RTS RO ;RETURN 


SEQ 0181 





CZRJMD.P12 


046076 


046100 
046106 
046110 
046114 


046116 
046122 
046126 
046132 


046136 
046142 
046146 
046150 
046156 








CZRJHDO,RPOG/5/6 DSKLS me 
01-MAR-79 09:10 


000000 


032777 
001402 
013716 
000002 


000207 





N14 
15:07 PAGE 184 


MACY11 rede | 


” wae LOCAL TRAPS 


staid ti OF THE USE OF THE ABOVE 
aa X: AND SCOP1 PROVIDED THERE IS NO ‘'NEWTST"’ 


CLEAR DISK ROUTINE 


7R1 WILL BE CONTROL AND STATUS! 
;R2 WILL BE CONTROL AND STATUS2 
3R3 WILL BE DISK STATUS REGISTER! 
3R4 WILL BE ERROR REGISTER #1 


;CLEAR ALL REG. 
;REINSTATE UNIT NO. 
;CLEAR FUNCTION BITS 
CLEAR ATTENTION BITS 





CZRJHDO ,RPO4/5/6 DSKLS crete 


CZRJHD.P12 


046160 
046164 
046172 
046176 
046204 


046206 


046222 
046224 
046226 
046234 
046236 
046242 
046244 


046246 
046252 


046254 


046270 
046272 


046336 


046340 


01-MAR-79 09: 


011637 
162737 
004737 
022737 


001423 
032737 
001004 
010137 
104026 
000413 
032737 
001003 
0101357 
104026 
000403 


010137 
104026 


013746 


001424 
032737 


104026 


000207 


015132 


004200 


004000 
001122 


000200 
001122 


001122 


015054 
001100 
000600 


000400 
001122 


000200 
001122 


001122 


MACY11 


015132 | 


015032 


015032 


015032 


015054 


015054 


30A 


(1052) 


24-MAY-79 


CLEAR DISK ROUTINE 


B15 
15:07 PAGE 185 


-SBTTL CHECK DISK STATUS ROUTINES 


;etrererererererrererereteerererereereretereeReeneeeKeReeeeeeeeee 


S#THIS CHECKS THAT DEVICE AVAILABLE (DVA) AND READY (RDY) IN RHCS1 
;*AND CHECKS THAT DEVICE PRESENT (DPR), 


:*1T ALSO CHECKS THAT ALL OTHER BITS IN 'HESE REGISTERS = 


pp eeeeeeeeeereereerrreeeeretererenereereeeneereKeneneneeKeneeneeet 


CHECKT: MOV 
SUB 


2s: 


3$: 


4$: 


6$: 


7$: 


(SP) ,a#PCJSR 


#4, a#PCJSR 
PC ,a#PUTREG 


WOVAIRDY,aaCS1 


3$ 

+ catia 
R1,a#$BDADR 
26 


3$ 
WROY,aaCS1 
2$ 
R1,a#S$BDADR 
26 


3$ 
R1,a#SBDADR 
26 


a#0S1,-(SP) 


#VV!PROG, (SP) 
> wpinprth aianbe 


#OPR,aaDS1 
R3,a#SBDADR 
26 


7$ 

#ORY ,a#DS1 
6$ 
R3,a#SBDADR 
26 


7$ 
R3,a#$BDADR 
26 


PC 


;SAVE PC OF JSR+4 
;GET PC OF JSR 
;SAVE REGISTERS 
;RHCS1 SHOULD HAVE DEVICE AVAILABLE 
;AND BE READY 

;BRANCH IF GOOD TO RHDS1 CHECK 


;BAD SO TEST DEVICE AVAILABLE 

; TEST READY IF DVA THERE 
;ADDRESS OF BAD REGISTER (RHCS1) 
;RHCS1 DID NOT HAVE DEVICE 
;AVAILABLE AT START OF TEST 
;BRANCH TO RHDS1 CHECK 


TEST READY 

;1f ROY THERE BRANCH 

;ADDRESS OF BAD REGISTER (RHCS1) 
;RHCS1 DID NOT HAVE READY 

;AT THE START OF TEST 

;BRANCH TO NEXT COMPARE 

sADDRESS OF BAD REGISTER (RHCS1, 
;RHCS1 HAD SOME BITS OTHER 

; THAN DVA AND RDY SET 

;ALL OTHER BITS SHOULD BE 0 

;AT START OF TEST 


;GET RHDS1 

;CLEAR VV AND PROGRAMABLE BIT 
;RHDS1 SHOULD HAVE THESE SET 
;RETURN TO TEST IF GOOD 


;BAD SO TEST DRIVE PRESENT 
;CHECK DRY IF GOOD 

; ADDRESS OF 
;RHDS1 DOES NOT HAVE DPR 
;BRANCH OUT 

TEST DRIVE READY 

:1f DPR WAS THERE SO BRANCH 
;ADDRESS OF BAD 
;RHDS1 DOES NOT 
;BRANCH OUT 
;ADDRESS OF BAD 
;RHDS1 HAS SOME BITS OTHER 
; THAN MOL, DRY, 
sALL OTHER BITS SHOULD 
;RETURN TO TEST 


BAD REGISTER (RHDS!) 


REGISTER (RHDS1) 
HAVE DRY 


REGISTER (RHDS1) 
DPR, SET 


DEVICE READY (DRY) IN RHDS1 


1 


BE 0 
AND HALT = FATAL ERROR 


1 


SEQ 0183 



















C15 
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CZRJHD.P 12 O1-MAR=79 09:10 CHECK DISK STATUS ROUTINES SEQ 0184 


8084 

8085 046342 062716 000006 8$: ADD #6, (SP) zADJUST STACK PTR TO GET OVER HALT IN TEST 

seat 046346 000207 RTS PC ;RETURN TO TEST AND CONTINUE TESTING 

8088 

8089 ppeeeereeereeeeereeereeeereerereeertereeeneeeeneeeeeeeeeeKeTATe ee 

8090 s*THIS CHECKS THAT DEVICE AVAILABLE (DVA) AND READY (RDY) IN RHCS1 = 1 

8091 ;tAND CHECKS THAT DEVICE PRESENT (DPR), DEVICE READY (DRY) IN RHDS1 = 1 

8092 s*1T DOES NOT CHECK THAT OTHER BITS IN THESE REGISTERS = 0 

8093 ppeeeeeeerererereeeeeererererereerrerereeeeeeeeeeeeAReee ee AeTe ee 

8094 

8095 046350 011637 015132 CHECKE: MOV (SP) ,a#PCUSR sSAVE PC OF JSR+4 

8096 046354 162737 000004 015132 SUB #4 ,a#PCJSR 3GET PC OF JSR 

8097 046362 004737 045616 JSR PC ,a#PUTREG ;SAVE REGISTERS 

8098 046366 032737 000200 015032 BIT #ROY,aaCS1 ;RHCS1 SHOULD HAVE DEVICE AVAILABLE 

8099 ;AND BE READY 

8100 046374 001004 BNE 1$ ;BRANCH IF GOOD 

8101 046376 010137 001122 MOV R1,a#$BDADR sFAILING REGISTER 

8102 046402 104026 ERROR 26 ;RHCS1 IS IN ERROR 

8103 ;DOES NOT HAVE DVA, RDY 

He 046404 00042, BR 4$ ;BRANCH 

8106 046406 032737 004000 015032 18: BIT #DVA,aaCSI sRHCS1 SHOULD HAVE DEVICE AVAILABLE 

8107 ;AND BE READY 

8108 046414 001004 BNE 2$ ;BRANCH IF GOOD 

8109 046416 010137 001122 MOV R1,a#S$BDADR sFAILING REGISTER 

8110 046422 104026 ERROR 26 ;RHCS1 IS IN ERROR 

8111 ;DOES NOT HAVE DVA, RDY 

8112 046424 000417 BR 4% ;BRANCH OUT 

8113 046426 032737 000200 015054 2$: BIT #ORY,a#DS1 ;RHDS1 SHOULD HAVE DPR,DRY 

8114 046434 001004 BNE 3$ ;BRANCH IF THERE 

8115 046436 010337 001122 MOV R3,a#SBDADR ;FAILING REGISTER RHDS1 

8116 046442 104026 ERROR 26 ;RHDS1 DOES NOT HAVE DPR,DRY 

8117 046444 000407 BR 4$ ;BRANCH OUT 

8118 046446 032737 000400 015054 3%: BIT #DPR,a#DS1 ;RHDS1 SHOULD HAVE DPR,DRY 

8119 046454 001004 BNE 5$ ;BRANCH IF THERE 

8120 046456 010337 001122 MOV R3,a#$BDADR ;FAILING REGISTER RHDS1 

8121 046462 104026 ERROR 26 ;RHOS1 DOES NOT HAVE DPR,DRY 

ai5s 046464 000207 4$: RTS PC ;RETURN TO TEST AND HALT = FATAL ERROR 
1 

8124 046466 062716 000006 5$: ADD #6, (SP) ;ADJUST STACK TO GET OVER HALT IN TEST 

ais: 046472 000207 RTS PC sRETURN TO TEST AND CONTINUE TESTING 

8126 

8127 -SBTTL WAIT LOOP 

8128 speeeeeeeerereetereeeereterterrerererteeeeeeeeeteeeeeee eee eee 

8129 ie WAIT LOOP 

8130 ie ONE LOOP OR ONE COUNT = 5.15 MICROSEC WITH BIPOLAR MEMORY (MIN) 

8131 :* ONE LOOP OR ONE COUNT = 11.86 MICROSEC WITH CORE (MIN) 

8132 3° WITH CORE ERROR IS INDICATED AFTER ABOUT 650 MILLISEC (MIN) 

8133 ppeeeerenrerererererereterrerererererereeeerereneenererererereees 

8134 

cn 046474 177777 TIMCNT: 177777 ;WALTING COUNT 

81 

8137 046476 010046 WAJT.T: MOV RO,-(SP) SAVE RO 

8138 046500 016600 000002 MOV 2(SP),RO 3;GET ADRESS OF REG. ADDRESS 

8139 046504 010037 001204 MOV RO,asSTMP3 sWAT PC+2 IN STMPS 





om 
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CZRJHDO,RPO4/5/6 DSKLS CTRLR2 MACY11 30A(1052) 24-MAY-79 15:07 PAGE 187 


CZRIHD.P12 01-MAR-79 09:10 WAIT LOOP SEQ 0185 
8140 046510 162737 000002 001204 SUB #2, aaSTMP3 sWAT PC FOR TYPEOUT 
8141 046516 012037 001176 MOV (RO)+, Q#STMPO ;WAIT REGISTER ADDRESS 
8142 046522 012037 001200 MOV (RO)+, aa#STMP1 “WALT ON BIT 
8143 046526 010066 000002 MOV RO, 2($P) + RESTORE RETURN ON STACK 
8144 046532 012600 MOV (SP)4 »RO RESTORE RO 
Bei 046534 013737 046474 001202 MOV aaTIMCNT, avstmp2: TEMPORARY COUNT 
8147 046542 033777 001200 132426 1$: BIT Q4STMP1,aSTMPO ;1S REQUIRED BIT THERE? 
8148 046550 001021 BNE 2$ sBRANCH IF YES 
8149 046552 005337 001202 DEC aaSTMP2 ; COUNT 
8150 046556 001371 BNE 1$ sBRANCH IF NOT i uP 
8151 046560 013737 046474 001202 MOV aaTIMCNT, aeSTMP2: TEMPORARY COUNT 
8152 046566 033777 001200 132402 3$: BIT aaSTMP i ,asTMPO 31S REQUIRED BIT THERE? 
8153 046574 001007 . BNE 2$ : BRANCH IF YES 
8154 046576 005337 001202 DEC aaSTMP2 oo NT 
8155 046602 001371 BNE 3$ ‘BRA NCH IF NOT TIME UP 
8156 046604 017737 132366 001126 MOV aSTMPO,a#S$BDDAT Hott iy CONTENTS 
8157 046612 104016 ERROR 16 WAITED ON BIT FAILED TO SET 
8158 046614 000002 2$ RTl 
8159 
8160 
tye! ;* CALL FOR THE ABOVE WAITLOOP IS 
6 :* 
8163 3* MOV aA, aaxs sA CONTAINS REGISTER ADDRESS 
8164 :f ~ ~ - sHENCE X$ WILL HAVE ABSOLUTE REG. ADR. 
8165 ;e ° . = 
8166 :* - - 
8167 3 WAT 
8168 3 *Xx$: 0 ;ABSOLUTE REG. ADDRESS UNDER WAIT 
8169 3* WORD 0 ;BIT WAITED FOR 
8170 ie : CONT INUE 


poe eae § DSKLS ps 
CZRJHD.P12 01-MAR-79 09:10 


8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8184 046616 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
5 
8197 046646 000200 


8211 046650 010000 


047332 


o°0O NNN NN 
Oo 
So 
So 
So 
P 
= 


0 
8220 046722 05 


8224 046724 004737 046116 
8226 046730 012777 177730 


— 15 
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WAIT LOOP 


053010 
053013 
053012 


053070 


146012 


~SBTTL SAVE ROUTINE 


ppeeeeeeeerrereererererrereeerererererererereeeteneetereererereee 
;THIS IS A SUBROUT!INE TO READ & SAVE REGISTERS 
7; IN THE REGISTER TABLE TO ANY LOCATION 
; THE CALL IS 

7 JSR RO, a#SAVER 

7 FROM 


“NUMBER OF WORDS SAVED 


pp eeeeeerererrerererereeeerereteetereteteereeeeeeteerenerenteneee 


SAVER: 
MOV R1,-(SP) 3;PUSH R1 ON STACK 
MOV R2,-(SP) 3;PUSH R2 ON STACK 
MOV R3,-(SP) 3;PUSH R3 ON STACK 
MOV (RO)+,R1 3; FROM 
MOV (RO)+,R2 5 
MOV (RO)+,R3 ;NUMBER 

1$: MOV acRi)+, (R2)+ ;SAVE REGISTER CONTENTS 
DEC R3 ; COUNT 
BNE 1$ ;BRANCH IF NOT DONE 
MOV (SP)+,R3 3;POP STACK INTO R3 
MOV (SP)+,R2 3;POP STACK INTO R2 
MOV (SP)+,R1 3;POP STACK INTO R1 
RTS RO 


~SBTTL WRITE CHECK ROUTINE 


ppeereererrerereererrererereteeeeeteereeeeReeeAeeeeKeRKareeeeeeese 


;THIS IS A SUBROUTINE TO DO WRITE CHECK HEADER AND DATA 
;CYLINDER 0, TRACK 1, SECTOR 1, KEYS 0 


spertrerrerererererereererererretertserereeerakeetaeeeReeerereeeee 


; THESE ARE TO SET UP FOR DISKLESS USE ONLY 


WRCHHD: MOV WFEMT22,a#CYL sCYLINDER 0 FORMAT 16 BIT WORDS 
MOvB #i,a#SECOTR+1 > TRACK=1 
MOVB8 #1,a#SECOTR ;SECTOR=1 
CLR aaKEY) sKEY1=0 
CLR aaKEY2 7KEY2=0 
MOV #36. ,DAWORD ‘NO OF DATA WORDS 
CLR aax sTHIS IS A READ OPERATION 
_ R5,a#CRC 3G0 TO CALCULATE CRC 
YL 
wCRC 


; THESE ARE REGULAR SETUPS 
JSR PC ,a#CLDISK 
MOV #-40. ,aRHwWC 


4-4. UP GENERAL REGISTERS 
AND CLEAR DISK REGISTERS 
$36 DATA WORDS 4 HEADER WORDS 


SEQ 0186 


HD .P 


Te sae * DSKLS CTRLR2 
CZRJ 12 01-MAR-79 09:10 


046736 


046762 


046770 
046774 
047000 


047004 
047006 


047012 


047016 


104401 


000000 
013711 


004737 


000207 


016264 


014000 


145774 
046160 
005123 
015166 


052650 


MACY11 30A(1052) 


146006 
000001 
145776 


24-MAY-79 


WRITE CHECK ROUTINE 


#WREINTO,Q@RHBA 
#1,-(SP) 
#1,1(0SP) 
(SP)+,@RHDST 
WFMT22'ECI] @RHOF ; 


@RHCA 
PC ,a#CHECKT 
,CPHALT 


O#WRCHDT, ARI 
PC ,a#COMHD 


PC 


F 15 
15:07 PAGE 189 


‘4 


STARTING ADDRESS OF READ BUFFER 
:SECTOR=1 


; TRACK=1 IN UPPER BYTE 
:TRACK=1, SECTOR=1 IN RHDST 

;16 BIT WORDS 
sECC CORRECTION INHIBIT BECAUSE 


ZECC LOGIC 1S NOT CHECKED YET 

;CYLINDER=0 

CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T 
;CANNOT CONTINUE TESTING IF ANY OF THE 
;ABOVE BITS DON'T = 1 OR OTHERS ARE STUCK @ 
;STOP THE TEST 

sWRITE CHECK HEADER AND DATA=52 

; INTO RHCS1 

;WRITE CHECK HEADER AND DATA 

;SAME AS READ HEADER AND DATA 


RETURN TO WRITE CHECK TEST 


* 


SEQ 0187 


CZRJHDO, "t+ Sandee + DSKLS oe 


CZRJHD.P 


047020 


047064 
047066 


01-MAR-79 


010304 


001344 
012605 


012601 
000200 


09:1 


001176 
001200 


053130 


001124 


015124 
132062 
132056 
132010 


177177 
000200 


MACY11 30A(1052) 


24-MAY-79 


WRITE CHECK ROUTINE 


-SBTTL COMPARE ROUTINE 


6 15 
15:07 PAGE 190 


pp eeeeerererererrereeeererererereeeerrereeAAeRe eA RARER eeeeTeeAA ETS 
;*THIS 1S A SUBROUTINE TO COMPARE TWO BLOCKS IN MEMORY 

;*R1 HAS GOOD DATA BUFFER ADDRESS 

;*R2 HAS TEST DATA BUFFER ADDRESS 

;*STMPO HAS ADDRESS OF RETURN ON ERROR TO PRINT HEADER 

;*STMP1 HAS ADDRESS OF RETURN ON ERROR TO PRINT DATA 

;*R3 HAS NUMBER OF WORDS TO BE COMPARED 

;*R4 HAS ONE MORE THAN NUMBER OF WORDS TO BE COMPARED 


sp eereereeeeeeererereeeettrtrrerertrrreareAteeeKeeneKeeeeneeeeeee 


COMPAR: 


2$: 
5$: 


3$: 
4$: 


R1,-(SP) 


(RO)+,$TMPO 
(RO)+,$TMP1 


(RO) ,RO 


R4 ,a#ERWORD 
(R1)+,(R2)¢ 


3$ 


-(R1) ,a#$GDDAT 
-(R2) ,a#$BDDAT 
R3,a#ERWORD 


a#ERFLGS 
2$ 
PC ,aSTMPO 
5$ 
PC ,astMPl 


(R1)+,(R2)+ 
aSwWR,-(SP) 

#*C600, (SP) 
oe nae 


4 
R3 
1$ 


(SP)+,R5 
(SP)+,R4 
(SP)+,R3 
(SP)+#,R2 
(SP)+,R1 
RO 


:;PUSH R1 ON STACK 

3;PUSH R2 ON STACK 

3;PUSH R3 ON STACK 

3;PUSH R& ON STACK 

3;PUSH RS ON STACK 

;ADDRESS OF GOOD DATA BUFFER 

; ADDRESS OF TEST DATA BUFFER 
;NO OF WORDS TO BE COMPARED 
:RETURN ON ERROR TO PRINT HEADER 
:RETURN ON ERROR TO PRINT DATA 
sRETURN ON NO ERROR 

sNO OF WORDS TO BE COMPARED 


;FOR ERROR WORD NO 
;COMPARE GOOD WITH TEST DATA 


;BRANCH IF GOOD 
;GOOD DATA 


;BAD DATA 

sERROR WORD NO. 

ANY ERRORS ALREAY THERE 
BRANCH IF YES 

:RETURN TO PRINT HEADER 


;BRANCH TO AVOID PRINTING NEXT ERROR 
;RETURN TO PRINT DATA 


sUNDO -(R1) AND -(R2) FOR ERRORS 
:GET SWITCH SETTING 

sKEEP ONLY SWITCH 7 AND 8 

:18 7 SET AND 8 RESET 

;BRANCH OUT IF YES 

; COUNT 

;BRANCH IF ALL NOT DEVICE 


3;POP STACK INTO RS 
;;POP STACK INTO R4& 
>:POP STACK INTO R3 
:;POP STACK INTO R2 
:;POP STACK INTO RI 
:RETURN TO MAIN PROGRAM 


SEQ 0188 


pe gad DSKLS CTRLR2 
CZR Pl2 01-MAR-79 09:10 


JHD.P 


2 Go 02 Op CD CD CO CD 
WWWAAAANw 


047162 


047222 


047226 
047232 
047234 


047236 


047242 
047250 
047256 
047262 
047270 
047274 


047302 
047306 
047312 


047316 


047320 
047324 


047330 


——A AAA 


104401 
000000 


013711 
004737 


000207 


010000 


053020 
047332 


046116 


177740 


014000 


145462 
046160 
005123 


015164 
052650 


MACY11 30A(1052) 


Bo eale WRCHDA: 


145500 
145474 


000001 
145464 


24-MAY-79 
WRITE CHECK DATA 


~SBTTL WRITE CHECK DATA 


;eeeeererererrereererrereeterererererereeereeerereeKaeeeeeeReeet 


H 15 
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;THIS 1S A SUBROUTINE TO DO WRITE CHECK DATA 
;CYLINDER 0, TRACK 1, SECTOR 1, KEYS 0 


pp ettereererrrreererererrerrereerertereereneereneneRAeeeeeeeneeeee 


; THESE ARE TO SET UP FOR DISKLESS USE ONLY 


MOV 
MOVB 
MOVB 
CLR 
CLR 
MOV 
CLR 


JSR 
CYL 
wWCRC 


; THESE ARE REGULAR SETUPS 


;SET UP GENERAL REGISTERS 
;AND CLEAR DISK REGISTERS 


336 DATA WORDS 4 HEADER WORDS 
STARTING ADDRESS OF READ BUFFER 
;SECTOR=1 

; TRACK=1 IN UPPER BYTE 

;TRACK=1, SECTOR=1 IN RHDST 


JSR 


WFAT22 ,aeCYL 
#1, a#SECOTR+1 
#1,a@SECOTR 
aaKEYl 

aaKEY2 

#32. ,a#DAWORD 
aax 


R5,aaCRC 


PC ,a#CLDISK 


#-32.,aRHwWC 
MREINTO,@RHBA 
#1,-(SP) 
#1,10°SP) 
(SP)+,@RHDST 
#FMT22'EC1, ARHOF 


@RHCA 
PC ,a#CHECKT 
-CPHALT 


Q#WRCHEK aR 
PC ,a#COMHD 


PC 


CYLINDER 0 FORMAT 16 BIT WORDS 


e. 
ia 
xz 

u 


=KEY2=0 


NO OF DATA WORDS 
; THIS IS A READ OPERATION 


;G0 TO CALCULATE CRC 


316 BIT WORDS 


ECC CORRECTION INHIBIT BECAUSE 

ECC LOGIC IS NOT CHECKED YET 

;CYLINDER=0 

CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T 
;CANNOT CONTINUE TESTING IF ANY OF THE 

;ABOVE BITS DON'T = 1 OR OTHERS ARE STUCK @ 1 
;STOP THE TEST 

WRITE CHECK DATA=50 INTO RHCS1 

;WRITE CHECK HEADER AND DATA 

;SAME AS READ HEADER AND DATA 


RETURN TO WRITE CHECK TEST 


SEQ 0189 


CZRJHDO,RPO4/5/6 DSKLS opr 


CZRJHD.P12 


047332 


047430 


047434 
047440 
047442 


047446 


01-MAR-79 09:1 


063703 


032701 
001403 
012702 
000401 


001210 


000001 
100000 


001210 
040000 
100000 


MACY11 30A(1052) 


001176 


001202 
001206 


24-MAY-79 


CRC GENERATION ROUTINE 


» SBTTL 


1 15 
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CRC GENERATION ROUTINE 


ppeeeeeeeereererterererereerereererereeteeereeererereteeereeteres 
;THIS IS A SUBROUTINE TO CALCULATE CRC FOR THE FOUR 
;HEADER WORDS AND STORE THEM IN ‘‘WCRC'’ AND ‘'GCRC"’ 


. 
. 


CRC: 


15$: 


1$: 


:R4 = THIS HAS BIT 


CRC, INCREMENTED . VALUE IS HERE 
POSITION 2 VALUE C 

POSITION 16 1.€. OUTPUT BIT VALUE B 
POSITION 15 VALUE E 


:$TMPO = NUMBER OF WORDS 

; - NUMBER OF BITS PER WORD = 16 

;STMP3 = TEMPORARY REG 

; - TEMPORARY REG TO TRANSFER CARRY 
- THIS HAS DATA BIT VALUE D 


FETCH DATA BIT D 
D XOR 16 


:C = B XOR 2 

3— = B XOR 15 

sROTATE RIGHT ONE POSITION 
3B GOES TO POSITION 1 

3C GOES TO POSITION 3 

:— GOES TO POSITION 16 
sREPEAT 64 TIMES 


;CALL JSR R5,aaCRC 
ix FIRST LOCATION AT 
:Y ;PUT CRC IN WCRC FOR READ GCRC FOR WRITE 


peeaetererrereeeererererererereeeteeeeeeeteeAAe eee eee Kee ee 


MOV RO,-(SP) ;;PUSH RO ON STACK 


MOV (R5)+,RO ;GET POINTER TO CYL NO. 
MOV R1,-(SP) ;;PUSH R1 ON STACK 

MOV R2,-(SP) ;;PUSH R2 ON STACK 

MOV R3,-(SP) ;;PUSH R3 ON STACK 

MOV R4,-(SP) 3:PUSH R4& ON STACK 

CLR R1 CLEAR WORKING LOCATION 
CLR aeSTMPS 

MOV #4 ,a#STMPO ;WORD COUNT 

MOV (RO)+, =e ; TEMPORARY WORD STORAGE 
MOV #16. $M P2 ;B1T COUNT 

MOV aNSinPS, Q#STMPS ; TEMPORARY WORD STORAGE 
ROR aavsTMPs :GET LSB INTO ‘ 


;GET ABOVE ‘'C'’ INTO STMP5 
:1$ POSITION 15 HIGH 


ROR oASTRPS 
BIT #B1T0,R1 


BEQ 1$ ;BRANCH IF POSITION 16 LOW 
a ‘alia ;GET POSITION 16 


CLR R3 ;GET POSITION 16 
ADD aeSTMP5S RS ;XOR a. 16 WITH D 


3:10 GIVE 
BIT #B1T14,R1 3:18 POSITION 2 H 


BEQ 3$ ;BRANCH IF POSIT 10N 2 LOW 
= "+ tabi ;GE1T POSITION 2 
4 


SEQ 0190 


CZRJHDO,RPOG/S 
CZRJHD.P12 


8400 047450 
8401 047452 


8403 047454 
8404 047460 
8405 047462 
8406 047466 
8407 047470 
8408 047472 


8410 047474 


8437 047604 


/6 OSKLS CTRLR2 
01-MAR-79 09:10 


005002 
060302 


032701 000002 
012704 100000 


060304 
006037 001206 


042701 100000 
052701 100000 


042701 020000 
052701 020000 


042701 000001 


052701 000001 
005337 001202 


005337 001176 


000205 


MACY11 30A(1052) 


24-MAY-79 15:07 


CRC GENERATION ROUTINE 


3$: 
4$: 


5$: 
6$: 


7$: 
10$: 


R2 
ADD R3,R2 
BIT eet ems 
MOV WBITI5,R4 
é$ 
CLR R4 


ADD R3,R4 
ROR aaSTMP4 
ROR R1 

TST R3 

BM] 


7$ 

BIC #B1T15,R1 
10% 

BIS #B1115,R1 
Re 


11$ 

BIC #B1T13,R1 
12% 

BIS #B1113,R1 
RG 


13% 
BIC #B1T0,R1 
14% 


BIS #B1T0,R1 
DEC tie 


15$ 
DEC a#s$TMPO 


BNE 16% 

MOV R1,a(R5)+ 
MOV (SP)+,R4 
MOV (SP)+,R3 
MOV (SP)+,R2 
MOV (SP)+,R1 
MOV (SP)+,RO 
RTS R5 


J.15 
PAGE 193 


r 
“GET POSITIO 
0 


;GET POSITION 1 
:XOR POSITION 15 WITH B 


;10 GIvE E 

:GET LSB INTO ‘'C"’ 
;GET ABOVE C INTO Ri 
;TEST B 


; TEST 
BRANCH IF B=1 
;SET B IN POSITION 1 


;SET B IN POSITION 1 
;TEST C 


“BRANCH IF C=1 
[GET C IN POSITION 3 


:GET C_ IN POSITION 3 
;TEST E 


“BRANCH IF E=1 
“GET E IN POSITION 16 


:GET E IN POSITION 16 
;B1T COUNTER 

:BRANCH IF 16 NOT DONE 
sWORD COUNTER 

;BRANCH IF 4& NOT DONE 
:PUT CRC WHERE DESIRED 
:;POP STACK INTO R4 
:;POP STACK INTO R3 
:;POP STACK INTO R2 
:;POP STACK INTO RI 
:;POP STACK INTO RO 


HIGH 

OSITION 15 LOW 
N 15 
N 15 
N 15 
C 


SEQ 0191 


K 15 
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CZRIHD.P12 01-MAR-79 09:10 SIMULATED DISK SETUP SEQ 0192 
at -SBTTL SIMULATED DISK SETUP 
8440 sp ereeeererrererererrrererereresrereerereeeeeteeeteReeetereeerene 
8441 sTHIS 1S A SUBROUTINE TO SET UP THE SIMULATOR DISK FOR 
8442 sCYLINDER 0 (16 BITS PER WORD) 
8443 ; TRACK 1, SECTOR 1 
B444 sKEY1 1 
8445 sKEY2 1 
8446 7CRC THROUGH THE JSR RS,aMCRC 
8447 3256 WORDS OF 177400 
8448 
8449 sCALL = SR PC ,a#SETDSK 
8450 ppeeeeeererrererereeereereeetreteeeeeeeAteReeeReAeee KEKE ATE ee 
8451 
8452 047606 SETDSK: 
8453 047606 010046 MOV RO,-(SP) :;PUSH RO ON STACK 
8454 047610 010146 MOV Geet. 3;PUSH R1 ON STACK 
8455 047612 010246 MOV R2,-(SP) 3;PUSH R2 ON STACK 
8456 047614 012700 177400 MOV 177400, RO :DATA IN THE DISK 
8457 047620 012701 000400 MOV #256. : COUNTER 
8458 047624 012702 054726 MOV tet :START OF eames DISK 
8459 047630 010022 1$: MOV RO,(R2)+ ;MOVE IN DAT 
8460 047632 005301 DEC R1 ;COUNT FOR 256 
8461 047634 001375 BNE 1$ BRANCH IF 256 NOT COMPLETE 
8462 047636 012701 000021 MOV #17.,R1 32 ECC WORDS, 1 DATA GAP 
8463 714 TOLERANCE GAP 
8464 047642 005022 2s: CLR (R2)+ sCLEAR ECC, ay GAP AND 
8465 : TOLERANCE GAP 
8466 047644 005301 DEC R1 ; COUNT 
ore! 047646 001375 BNE 2$ ;BRANCH IF NOT COMPLETE 
ly 
oy :NOW SET UP FOR DISKLESS USE 
8471 047650 012737 010090 053010 MOV WEMT22,a#CYL sCYLINDER 0 (16 BIT WORDS) 
8472 047656 112737 000001 053013 MOVB #1, a#SECOTR+1 7 TRACK=1 
8473 047664 112737 000001 053012 MOVB #1,a#SECOTR 7 SECTOR=1 
B474 047672 012737 000001 053014 MOV #1,aaKEY! sKEY1=1 
8475 047700 012737 000001 053016 MOV #1,a#KEY2 sKEY2=1 
8476 047706 013737 000400 053070 MOV 256.,a#DAWORD ;NO. OF DATA WORDS 
8477 047714 004537 047332 JSR R5,a#CRC :G0 TO CALCULATE CRC 
8478 047720 053010 CYL sFIRST CRC WORD 
8479 047722 054710 wWCRC ;PUT CALCULATED CRC 
8480 047724 012602 MOV (SP)+,R2 7;POP STACK INTO R2 
8481 047726 012601 MOV (SP)+,R1 :;POP STACK INTO RI 
8482 047730 012600 MOV (SP)+,RO :;POP STACK INTO RO 
8483 047732 000207 RTS PC 


L_15 
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CZRIHD.P12 01-MAR-79 09:10 CHECK HCE ROUTINE SEQ 0193 
ont -SBTTL CHECK HCE ROUTINE 
8487 ppeeeeerreeeeererererererereerererreerereeeteetereeeeeeTeeeeeee 
8488 sTHIS IS A SUBROUTINE TO CHECK HEADER COMPARE ERROR 
aan (BIT #7) AND CRC ERROR (BIT #8) 
8491 sCALL JSR RO, AMHCCRCE 
8492 
8493 ; COM ; COMMAND =~ READ shy AND DATA 
8494 “WRITE DATA 
8495 ; C “CYLINDER 
8496 ; Ss ; SECTOR 
8497 3 T 3; TRACK 
8498 ; “N. WORD COUNT 
8499 3 B ;RHBA BUFFER START 
8500 : xX > 1=WRITE DATA O=READ 
8501 ; H ;H=1 HEADER CHECK, H=0 CRC CHECK 
8502 ppeteeerereeeterereeeereerreeertereeeeteeeeAAteAeeeKeTeeereee eee 
8503 : 
8504 047734 010037 015132 HCCRCE: MOV RO, a#PCJSR sSAVE PC OF JSR+4 
8505 047740 162737 000004 015132 SUB #4 ,aaPCJSR ;GET PC OF JS& 
8506 047746 004737 046116 JSR PC ,a#CLDISK ; INIT AND SETUP GENERAL REG. 
8507 047752 004737 046160 JSR PC ,@#CHECKT CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T 
8508 047756 104401 005123 TYPE ~CPHALT : CANNOT CONTINUE TESTING IF ANY OF THE 
8509 ; ABOVE BITS DON'T = 1 OR OTHERS ARE STUCK @ 1 
8510 047762 000000 HALT . ;STOP THE TEST 
8511 047764 011037 001210 MOV CPR: aa STMPS ;SAVE COMMAND 
8512 047770 012011 MOV (RO)+,aR1 ; COMMAND 
8513 047772 012077 144772 MOV (RO)*+,@RHCA : CYLINDER 
8514 047776 112046 MOVB (RO)+,-(SP) ; SECTOR 
8515 050000 105720 TSTB (RO)+ ;UP DATE RO 
8516 050002 112066 000001 MOVB (RO)+,1°SP) 3; TRACK 
8517 050006 105720 TSTB (RO)+ UPDATE RO 
8518 050010 012677 144746 MOV (SP)+,@RHDOST ; TRACK SECTOR 
8519 050014 012077 144730 MOV (RO)+,aRHWC 3NO. OF DATA WORDS +4 HEADER 
8520 3 1f A READ HEADER AND DATA 
8521 050020 012077 144726 MOV (RO)+,@RHBA sSTARTING ADDRESS OF BUFFER 
8522 050024 012037 053020 MOV (RO) +, aax iX= 0 READ HEADER AND DATA 
8523 X=1 WRITE DATA 
8524 050030 012777 014000 144730 MOV WEMT22'ECI, @RHOF 316 BITS PER WORD 
8525 ECC yee Bae INHIBIT 
8526 050036 005037 015124 CLR a#ERFLGS :CLEAR ERROR FLAG 
ase 050042 004737 052650 JSR PC ,a#COMHD ; COMMAND 
8529 :1f THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
8530 sFROM THE ‘‘COMHD'’ ROUTINE THAT MEANS SECTOR GAP, 
8531 sFIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND 
8532 :SYN< BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY 
8533 ; DETECTED 
+H 41 sHEADER AND DATA ARE TO BE CHECKED. 
8536 050046 004737 045616 JSR PC ,a#PUTREG > SAVE REGISTERS 
8537 050052 005737 015124 TST a#ERFLGS sANY ERRORS ALREADY THERE 
8538 050056 001034 BNE 10$ ;BRANCH IF YES 
8539 050060 005737 053020 TST ax 31S THIS A READ 
8540 050064 001015 BNE 3$ :1F A WRITE DATA BRANCH 


CZRJHDO,RPO4/5/6 DSKLS ph 


CZRIHD.P12 


050112 


050114 
050116 


050120 


050144 


050146 


050172 


050200 
050202 
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004037 
015220 


104005 


000207 
000414 


rated 


104005 


000207 


047020 


047020 


000072 


144570 
000200 


014760 


MACY11 30A(1052) 
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001210 


001126 
001126 


045662 


2$: 


3$: 


4$: 
5$: 


10$: 


ries -79 


Mm 15 
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NOW THE READ BUFFER WILL BE CHECKED 
;HEADER SHOULD BE COMPLETELY READ AS WRITTEN 
;NO DATA WORDS SHOULD BE READ 


;REINTO BUFFER HAS BEEN 
;WRFROM BUFFER HAS BEEN 


JSR 
WRFRO 


RTS 
BR 


RO, a#COMPAR 


PC 
10$ 


FILLED WITH 0 
FILLED WITH EXPECTED DATA 


; CHECK 
3G00D DATA 
: TEST BUFFER 


4 HEADER 252 DATA 


RETURN POINT FOR ERROR HEADER 
;RETURN POINT FOR ERROR DATA 
;RETURN FOR GOOD COMPARISON 
;READ NEXT ERROR 5 

;RETURN TO COMPARISON SUBROUTINE 
;WORD NO 1 THRU 4 ARE 

;HEADER WORDS AND HENCE 
;SHOULD BE READ AS WRITTEN ON 
;D1SK, WORD NOS. 5 ONWARDS 
;SHOULD NOT BE READ AND HENCE 
READ INTO BUFFER 

; SHOULD BE UNCHANGED 

RETURN TO COMPARISON 


; JUMP OUT 


;NOW THE DISK WILL BE CHECKED 

NO DATA SHOULD BE WRITTEN 

;REINTO BUFFER HAS BEEN FILLED WITH EXPECTED DATA 
DISK HAS BEEN FILLED WITH 177400 

;WRFROM HAS BEEN FILLED 


JSR 
REINTO 


RO, a#COMPAR 


ww 
ao 


PC 

(RO)+ 

6$ 

#72 ,aeSTMPS 
11$ 


#WHCE ,@#SBDDAT 


WITH 125252 


; CHECK 
;GOOD DATA BUFFER 
TEST BUFFER 


;RETURN POINT FOR ERROR HEADER 
;RETURN POINT FOR ERROR DATA 
;RETURN POINT FOR GOOD COMPARISON 


;READ NEXT ERROR 5 
;RETURN TO COMPARISON SUBROUTINE 
;WORD NO ARE ALL DATA 


;WORDS THE SHOULD NOT 

;HAVE BEEN CHANGED BY THE 

WRITE COMMAND 

;RETURN TO COMPARISON SUBROUTINE 
31S THIS A HCRC ON HCE CHECK? 
;BRANCH IF HCRC 

718 THIS A READ COMMAND 

;BRANCH IF YES 

QRHER1 ,A#$BDDAT ; TEST 
ONLY HEADER COMPARE BIT? 
;SHOULD BE SET 


DATA 


ANCH IF GOOD 


7$ 7BR 
Q#RHER1 ,AMREGADR ;REGISTER ADDRESS RHER| 


SEQ 0194 


CZRIHDO,RPO4/5/6 DSKLS CTRLR2 
01-MAR-79 09:10 


CZRJHD.P12 


5 


050210 
050216 


050220 


050254 
050256 


050322 


050324 
050326 


050334 
050342 


050360 


050362 


012737 
104027 
000460 


017737 
022737 


104027 


000416 
017737 


022737 
001407 
012737 


013737 
104027 


000200 


000200 


144532 
100200 


014760 
100200 


000072 


144464 
000400 


014760 
000400 


144426 
100400 


see 


1 
014760 


MACY11 30A(1052) 


001124 


045662 
001124 


001210 


001126 
001126 


045662 
001124 


001126 


01126 


001124 
045662 


118: 


6$: 


12$: 


7$: 


nN 15 
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MOV 
ERROR 
BR 


WHCE ,@#SGDDAT  ;GO0D DATA 

27 sAFTER AN ERROR ON THE 
;HEADER ONLY HCE SHOULD 

7$ ;BE SET 


Q@RHER1 ,@#SBDDAT ; TEST DATA 
#OCK! HCE ,@#SBDDAT ;ONLY HEADER COMPARE BIT? 
;SHOULD BE SET 
;D0CK 1S SET BECAUSE ECC IS NOT READ 
7$ ;BRANCH IF GOOD 
Q#RHER1 ,@#REGADR ; REGISTER ADDRESS RHER! 
#DCK HCE ,a#SGDDAT. ;G00D DATA 
27 ;AFTER AN ERROR ON THE 
:MEADER ONLY HCE SHOULD 


7$ :BE SE 

#72, aaSTMPS 31S THIS A READ COMMAND? 

12$ BRANCH IF A READ 
Q@RHER1,a#$BDDAT ; TEST DATA 

ai ,-@#$SBDDAT ;ONLY CRC ERROR SHOULD BE THERE 


@#RHER1,Q@#REGADR ;REG. ADDR = RHERI 

WHCRC,@#SGDDAT ;GOOD DATA 

27 ;AFTER A CRC ERROR ONLY CRC 
;SHOULD BE SET 

7$ :BRANCH OUT 

@RHER1,a#$BDDAT ; TEST DATA 


#DCK!HCRC,A#SBDDAT;HCRC AND DCK SHOULD BE SET 

;0CK 1S SET BECAUSE ECC IS NOT READ 
7$ :BRANCH IF GOOD 
#DCK'HCRC,a#$GDDAT;GOOD DATA 
@MRHER1 ,QMREGADR; FAILING REGISTER RHER1 
27 ;AFTER A CRC ERROR ON A READ 

;DCK AND HCRC SHOULD BE SET 

;0CK 1S SET BECAUSE ECC 1S NOT READ 
RO ;RETURN TO MAIN TEST 


SEQ 0195 


CZRJHDO ,RPO4/5/6 DSKLS cre 
CZRJHD.P12 10 


050364 


050370 
050376 


050440 


050446 


050474 


—O a es os 


000207 


01-MAR-79 09: 


015172 
177766 


000001 
000001 
057056 


MACY11 


144360 


144344 
144340 
144342 
144326 
144332 


050466 


144322 
144274 


30A(1052) 


24-MAY-79 


EXIT WRT HEADER & DATA ROUTINE 
~SBTTL EXIT WRT HEADER & DATA ROUTINE 


ppeeeeerereererereeeeeerreeeeerererereeeeeeeeeeeeteteReeereneeees 
; THIS 1S A SUBROUTINE TO LEAVE AT THE MIDDLE OF 

;A_ WRITE HEADER AND DATA COMMAND 

:11T TRYS TO GET SECTOR 10, TRACK 0, CYLINDER 0 

;BUT COMES OUT AFTER ONE SECTOR 

; THE COMMAND OS JSR PC,@#MIDDLE 

;BAl IS SET 


sy eeeeerereerererrrerrerrerterisereeeeereeeeeAKeeeReeeeeeeeAeeeeee 


MIDDLE: 


MID: 


RO, ah 
R1,-(SP) 
a#WRIFOR,@RHCS1 


#-10. ,aRHwWC 
#WRFEROM ,QRHBA 
#10, aRHOST 
#241, aRHCS2 
#FMT22,@RHOF 
@RHCA 
#1,a#M1D 


#DMD ,@RHMR 
#G0,aRHCS1 
R1,Q#SEARCH 


0 
(SP)+,R1 
(SP)+,RO 
PC 


B 16 
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++ PUSH RO ON STACK 

;PUSH R1 ON STACK 
[WRITE HEADER AND DATA=62 

; IN RHCS1 
:10 WORDS 
;BUS ADDRESS=WRF ROM 
DESIRED TRACK=0 SECTOR=10 
;BUS ADDRESS INCREMENT INHIBIT 
;FORMAT 16 BIT WORDS 
;CYLINDER=0 
;SECTOR 1S SET TO 1 SO THAT 
;WE CAN GET OUT AT THE 
;MIDOLE OF AN OPERATION 
;LOOKING FOR SECTOR 10 
;SET DIAGNOSTIC MODE 

:G0 TO RHCS1 WITH 62 


; SECTOR 
;;POP STACK INTO R1 
;;POP STACK INTO RO 


SEQ 0196 


CZRJHDO ,RPO4/5/6 DSKLS ps 
Pi2 09:10 


CZRJHD.P 


050610 


050612 
050612 
050614 


01-MAR-79 


104030 


012605 
000200 


015132 
000004 


144250 


000001 


046116 
144226 
001126 


001124 
015014 


MACY11 30A(1052) 


015132 


144224 
144236 
144210 


001126 


045662 


24-MAY-79 
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EXIT WRT HEADER & DATA ROUTINE SEQ 0197 
-SBTTL JAM CURRENT CYLINDER ROUTINE 
cs “mete eeteeeeetareeereeeeeeereeeeeeeeeeeeRneeeeeenkekeneneteeeeteeeee 
:*THIS SUBROUTINE WILL CHANGE THE CURRENT CYLINDER REGISTER 
#THIS 1S DONE BY GIVING A SEEK COMMAND THEN AN INIT 
sewn CH WILL LOAD THE CURRENT CYLINDER WITH THE DESIRED CYLINDER VALUE 
S eCALL IS: 
ie JSR RO, @#MAKECYL 
:* xe sDESIRED VALUE OF CURRENT CYLINDER 
5 Ls eeeeeeeeeeeereeeeereterereteeteeeeteneeeneeeeeteeeneeeereertere 
MAKECYL: 
MOV R5,-(SP) :;PUSH RS ON STACK . 
MOV RO, a#PCUSR 3PC OF JSR+4 
SUB #4 ,a#PCJSR ;SAVE PC OF JSR 
MOV (RO)+,R5 sGETTING READY TO FILL DESIRED CYLINDER 
MOV R5,@RHCA sFILL DESIRED CYLINDER REGISTER 
CLR @RHDST sMAKE SURE DESIRED SECTOR TRACK IS NOT ILLEGAL 
MOV @#SEECOM,ARHCS] ;FILL SEEK COMMAND 4 
MOV #DMD, |RHMR 3SET DIAGNOSTIC MODE Pa 
BIS #G0, ARHCS1 :60 TO SEEK 
NOP ALLOW TIME FOR SEEK TO HANG UP 
NOP sALLOW TIME FOR SEEK TO HANG UP 
NOP ;ALLOW TIME FOR SEEK TO HANG UP 
NOP sALLOW TIME FOR SEEK 10 HANG UP 
JSR PC ,a#CLDISK :GIVE INIT 
MOV QRHCC,a#SBDDAT ;TEST DATA 
CMP R5,a#$BDDAT ; COMPARE CURRENT CYLINDER 
BEQ 1$ ;BRANCH IF GOOD 
MOV RS ,a#SGDDAT ;GO00D VALUE OF RHCC 
MOV @MRHCC,A#REGADR ; FAILING REGISTER ADDRESS 
ERROR 30 ;CURRENT CYLINDER DOES NOT MATCH DESIRED CYLINDER 
= sREGISTER AFTER A SEEK AND AN INIT 
MOV (SP)+,R5 ;;POP STACK INTO RS 
RTS RO 


CZRJHDO,RPO4/5/6 DSKLS phy 
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CZRIHD.P12 


8749 050616 


8753 050620 


8756 050622 


8759 050624 


100000 


000001 


000000 


000000 


000000 


000000 
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JAM CURRENT CYLINDER ROUTINE 


~SBTTL ECC GENERATION AND COMPARISON ROUTINE 


ppeeeeererereerererereeerererererenerereerererereerenAeAeeAeeeeee 


;*THIS SUBROUTINE GENERATES AND TESTS ECC 
3 *CALL JSR PC,ECTEST 


ps eteeerererrereretereterereerrererererereeenereeeetereeeeeneeeeet 


= 100000 
=40000 


vuvvuVvVVvUVvVVUVUVVVUVVVVVUVVVU VU UU UU UO 
ee ee et et et Ret ee et et et tt et et et et et et et et et tt dt 


0 

1 

2 

3 =6=10 

4 =4 

5 =2 

6 =1 

7 ~==100000 

8  =40000 

9  +=20000 

0 =10000 

1 =4000 

2 =2000 

3 ~=6©=1000 

4 =400 

5 =200 

6 =100 

7 240 

8 =20 

9 =10 
PIE30 8 =4 
PIE31 =2 
PIE32 ==1 
ECDATA: 0 DATA BIT FOR ECC 

:1f ALL ONES THEN CURRENT BIT IS A ONE 
71f ZERO THEN CURRENT BIT IS A ZERO 

GECC1: 0 Ley ORDER ECC WORD TO BE GENERATED HERE 
GECC2: 0 eh ORDER ECC WORD TO BE GENERATED HERE 
TSECCG: 0 :1f =177777 GENERATE AND TEST ECC FOR THIS BIT 


=1 
1+ =0 DO NOT GENERATE AND TEST ECC FOR THIS BIT 


SEQ 0198 
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CZRJHD.P12 01-MAR-79 09:10 ECC GENERATION AND COMPARISON ROUTINE SEQ 0199 
8761 
8762 050626 113715 NCODE: 38859. ;N-CODE WORD 
8763 050630 000000 NCOUNT: 0 ; TEMPORARY N CODE 
8764 050632 000000 POSITI: 0 ;POSITION Sek 
8765 050634 010041 HARDER: 4129. HARD ERROR COUN 
8766 ; TRUE COUNT IS n128 BUT AS COMPARES ARE 
8767 ;DONE ONE STAGE LATER SO 4129 
8768 050636 000000 DATENV: 0 :DATA ENVELOPE FOR TYPE OUT 
8769 ;MAX FOR WRITE IS 4096 
8770 ;MAX FOR READ IS 4128 
8771 050640 000000 2CODE: 0 ;LEADING ZEROS ENVELOPE FOR TYPE OUT 
8772 THIS 1S SHUT OFF WHEN POSITION COUNTER 
8773 ; IN ENABLED 
8774 ;MAX COUNT IS 38859 
8775 
8776 
8777 
8778 050642 000000 HADTMP: 0 ; TEMPORARY HARD ERROR COUNT 
8779 050644 000000 P3: 0 
8780 050646 000000 Pl: 0 
8781 050650 000000 P22: 0 
8782 050652 000000 P24: 0 
8783 
8784 
8785 
8786 
8787 
8788 050654 ECTEST: 
8789 050654 010046 MOV RO,-(SP) ;;PUSH RO ON STACK 
8790 050656 010146 MOV R1,-(SP) ;;PUSH R1 ON STACK 
8791 050660 010246 MOV R2.-(SP) ;;PUSH R2 ON STACK 
8792 050662 010346 MOV R3_-(SP) 3;PUSH R3 ON STACK 
8793 050664 010446 MOV R4,-(SP) ;;PUSH R4& ON STACK 
8794 050666 010546 MOV R5,-(SP) ;;PUSH RS ON STACK 
8795 050670 013701 050620 MOV avGECC1,R1 ;ECC1 WORD 
8796 050674 013702 050622 MOV @AGECC2 ,R2 sECC2 WORD 
8797 050700 005737 050616 TST awECDATA 31S CURRENT BIT A ONE 
ie: 050704 001406 BEQ 2% ;BRANCH IF CURRENT DATA D=0 
8800 :1F CARRY 1S NOT ZERO THEN D=1 
8801 s INVERT X32 10 GIVE RO 
8802 . 
8803 050706 010103 1$: MOV R1,R5 
8804 050710 052703 177776 BIS #*CPIE52,R3 
8805 050714 005103 COM R3 
8806 050716 010300 MOV R3,R0 
8807 050720 000404 BR 38 
8808 
8809 71F CARRY 1S ZERO THEN D=0 
8810 3X32 BECOMES RO 
8811 050722 010103 2$: MOV R1,R3 
8812 050724 042703 177776 BIC #*CP1E32,F3 
th 050730 010300 MOV R3,R0 
4 
8815 050732 000241 3$: CLC 


8816 050734 006000 ROR RO 


F 16 
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202 
CZRIHD.P12 01-MAR-79 09:10 ECC GENERATION AND COMPARISON ROUTINE SEQ 0200 
8817 050736 006000 ROR RO 
8818 050740 005700 TST RO 
8819 050742 001462 BEQ 10% ;BRANCH IF RO=0 
8820 s INVERT X2 
8821 
8822 050744 010203 MOV R2,R3 
8823 050746 052703 137777 BIS #*CPIE2,R3 
8824 050752 005103 COM R3 
8825 050754 010337 050644 MOV R3,a#P3 
ease 050760 006237 050644 ASR aaP3 
8828 s INVERT X11 
8829 
8830 
8831 050764 010203 MOV R2,R3 
8832 050766 052703 177737 BIS #*CPIE11,R3 
8833 050772 005103 COM R3 
8834 050774 010337 050646 MOV R3,a#P12 
oth 051000 006237 050646 ASR aMPi2 
8837 ; INVERT X21 
8838 
8839 051004 010103 MOV R1,R3 
8840 051006 052703 173777 BIS #*CPIE21,R3 
8841 051012 005103 COM R3 
8842 051014 010337 050650 MOV R3,a#P22 
eh 051020 006237 050650 ASR aa#P22 
8845 s INVERT X23 
8846 
8847 051024 010103 MOV R1,R3 
8848 051026 052703 176777 BIS #*CPIE23,R3 
8849 051032 005103 COM R3 
8850 051034 010337 050652 MOV R3,a#P24 
tH 051040 006237 050652 ASR awP24 
8853 + NOW THAT + ye POSITION 1 
8854 FOR POSITION 3 
8855 : pi? FOR POSITION 12 
8856 : P22 FOR POSITION 22 
8857 P24 FOR POSITION 24 
8858 “ARE KNOWN THE ROTATE WILL BE DONE AND 
8859 ; THESE BITS JAMED IN 
8860 
8861 051044 006002 ROR R2 
8862 051046 006001 ROR R1 
8863 051050 053700 050644 BIS ok ay A 
8864 051054 053700 050646 BIS a#Pi2,R 
8865 051060 042702 120020 BIC PPLE (PIES!PIEN2, R2 
9 051064 050002 BIS RO,R2 
8868 051066 005000 CLR RO 
8869 051070 053700 050650 BIS a#P22,RO 
8870 051074 053700 50652 BIS a#P24,R0 
8871 051100 042701 002400 BIC WPIE2O!PLE24,R1 
8872 051104 050001 ° BIS Rl 
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poe + epee DSKLS phy MACY11 wre eed 24-MAY-79 
CZRJHD.P12 01-MAR-79 09:10 ECC GENERATION AND COMPARISON ROUTINE SEQ 0201 

eer? 051106 000404 BR 12% 

8875 7; THE PROGRAM COMES HERE IF RO=0 

ser $0 AFTER ROTATE RO GETS PUT INTO POSITION 1 

8878 051110 006002 10$: ROR R2 

8879 051112 006001 ROR R1 

8880 051114 042702 100000 BIC #PIE1,R2 

8881 051120 010137 050620 128: MOV R1,a#GECC1 7SAVE ECCI 

8882 051124 010237 050622 MOV R2,a#GECC2 sSAVE ECC2 

8883 051130 005737 050624 TST asTSECCG :1S HARDWARE TO BE CHECKED 

8884 :1f =1777777 TEST HARDWARE 

8885 -1f = 0 DO NOT TEST HARDWARE 

sees 051134 001432 BEQ 14$ :BRANCH IF HARDWARE NOT TO BE CHECKED 

8888 

8889 :*C HECK HARDWARE 

8890 051136 032777 000400 127774 BIT #SWB,aSwR :1S SWITCH 8 SET 

8891 051144 001005 BNE 15$ sBRANCH IF SW8 IS SET 

8892 051146 032777 900100 127764 BIT #SW6,aSWR :1S SWITCH 6 SET 

8893 051154 001401 BEQ 15$ sBRANCH IF SwW6 IS NOT SET 

8894 051156 000421 BR 14% s1f SWITCH 8 IS NOT SET AND 

8895 SWITCH 6 IS SET THEN 

8896 :D0 NOT DO COMPARES 

8897 051160 010146 15$: MOV R1,-(SP) GOOD PATTERN REGISTER 

8898 051162 042716 174000 BIC #174000, (SP) :GET ONLY PATTERN BITS 

8899 051166 022677 143616 CMP (SP)+,@RHEC2 :COMPARE PATTERN REGISTER 

8900 051172 001404 BEQ 13% sBRANCH IF GOOD 

8901 :10 SAVE TIME 

8902 051174 004737 045616 JSR PC, a#PUTREG sSAVE REGISTERS 

8903 051200 104035 ERROR 35 PATTERN REGISTER IN 11 BITS IN ERROR 

8904 051202 * 000407 BR 14% :BRANCH OUT 

8905 051204 023777 050632 143574 13$: CMP Qa#POSITI,A@RHEC] ; COMPARE POISTION REGISTER 

8906 051212 001403 BEQ 14% :BRANCH IF GOOD 

8907 TO SAVE TIME 

8908 051214 004737 045616 JSR PC ,a#PUTREG :SAVE REGISTERS 

8909 051220 104035 ERROR 35 POSITION REGISTER IN ERROR 

8910 :"DATA ENVLOP’’ GIVES NUMBER OF CLOCK 

8911 PULSES FROM BEGINING OF COMMAND 

4 THAT IS THE CLOCKS IN THE R/W DATA FIELD ENVELOPE 
91 ; 

8914 :IN A WRITE THERE ARE 10000 OCTAL CLOCKS 
8915 :IN A READ THERE ARE 10040 OCTAL CLOCKS 
8916 ; 

8917 : 

8918 :""N-CODE ZEROS'’ GIVE THE NUMBER OF CLOCKS 
8919 : GIVEN FOR THE LEADING ZEROS FIELD 
8920 :MAX COUNT IS 113713 OCTAL 

8921 ; 

8922 :"GOOD POSITION'' GIVES NUMBER OF CLOCKS 
8923 :GIVEN AFTER LEADING ZEROS WHICH IS FOR THE DATA 
8924 7FIELD 

8925 :MAX COUNT 1S 10040 OR 10041 OCTAL 

8926 

8927 

8928 051222 14$: 
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CZRJHD. Pl2 01-MAR-79 09:10 ECC GENERATION AND COMPARISON ROUTINE SEQ 0202 
8929 051222 012605 MOV (SP)+,R5 3:POP STACK INTO RS 
8930 051224 012604 MOV (SP)+,R4 3;POP STACK INTO R4& 
8931 051226 012603 MOV (SP)+,R3 :;POP STACK INTO R3 
8932 051230 012602 MOV (SP)+*,R2 7;POP STACK INTO R2 
8933 051232 012601 MOV (SP)+,R1 3:POP STACK INTO R1 
8934 051234 012600 MOV (SP)+,R0 3;POP STACK INTO RO 
8935 051236 000207 RTS PC 
aeet -SBTTL ECC GENERATION CONTROL ROUTINE 
8938 ppeeeeeeeereeeerereererereeerererererreerererererereneteeeeeeeTet 
8939 7*THIS SUBROUTINE WILL CONTROL THE ECC GENERATION ROUTINE 
8940 ;*FOR ERROR CORRECTION PROCESS 
8941 s*CALL JSR, PC ,a#ECORR 
8942 3@ xP sEXPECTED POSITION REGISTER WHEN CORRECTION IS COMPLETE 
8943 pptteeerererereerrerreereereeeerererererererererereeeereeteteeeTet 
8944 
8945 
deg! 051240 000000 ERPOS: 0 ;POSITION REG. WHEN CORRECTION IS COMPLETE 
4, 
8948 
8949 
8950 051242 010037 015132 ECORR: MOV RO, a#PCJSR ;SAVE PC OF JSR + 4 
8951 051246 162737 000004 015132 SUB #4, a#PCJSR ;SAVE PC OF JSR 
8952 051254 012037 051240 MOV (RO)+,@#ERPOS :GET POSITION REG. WHEN CORRECTION IS COMPLETE 
8953 051260 010146 MOV R1,-(SP) 3;PUSH R1 ON STACK 
8954 051262 013701 014776 MOV Q#RHMR,RI ;MAIMTENANCE REGISTER 
8955 051266 012711 000001 MOV #DMD,aR1 ;SET DIAGNOSTIC MODE BIT 
eee 051272 005037 050616 CLR Q#ECDATA sECC DATA IS ZERO 
8958 
8959 
8960 051276 005737 050632 1$: TST avPOSITl 71S SOFTWARE POSITION NON ZERO 
8961 051302 001007 BNE 2$ ;BRANCH IF N-CODE S COMPLETE 
8962 051304 005337 050630 DEC a#NCOUNT ;DECREMENT N-CODE 
8963 051310 001001 BNE 6$ ;BRANCH IF N-CODE IS NOT COMPLETE 
8964 051312 000403 BR 2$ ;BRANCH AS N-CODE IS COMPLETE 
8965 051314 005237 050640 6$: INC avZCODE s INCREMENT CLOCKS GIVEN FOR LEADING ZEROS 
8966 051320 000420 BR 3$ ;BRANCH AS N-CODE IS NOT COMPLETE 
8967 3G0 TO GIVE CLOCK AND TEST ECC 
8968 051322 005237 050632 2$: INC avPOSITl s INCREMENT SOFTWARE POSITION 
8969 051326 023737 051240 050632 CMP Q#ERPOS ,a#POSITI;HAVE ENOUGH CLOCKS BEEN GIVEN TO DETECT ERROR 
8970 051334 103012 BHIS 3$ ;BRANCH IF MORE CLOCKS TO BE GIVEN 
8971 051336 023737 050642 050632 CMP Q#HADTMP, a#POSITI; HAVE ENOUGH CLOCKS BEEN GIVEN FOR HARD ERROR 
8972 THAT 1S HAVE 4128 MORE CLOCKS BEEN GIVEN 
8973 051344 001415 BEQ 5$ BRANCH IF YES 
8974 051346 032711 000400 BIT #ZER,aR1 sCHECK ZERO DETECT BIT IN RHMR 
8975 051352 001016 BNE 4% ;BRANCH IS ZER SET 
8976 310 SAVE TIME 
8977 051354 004737 045616 JSR PC ,a#PUTREG sSAVE REGISTERS 
8978 051360 104034 ERROR 34 sZERO DETECT BIT NOT HIGH 
8979 WHEN 21 BITS IN ECC 32 BIT REGISTER 1S 0 
8980 
8981 
8982 051362 052711 000002 3$: BIS #MCLK ARI ;SET CLOCK 
8983 051366 042711 000002 BIC #MCLK ARI sCLEAR CLOCK 
6984 0513572 004737 050654 JSR PC ,a#mECTEST +60 TO GENERATE AND TEST ECC 





CZRJHDO,RPOS/5/6 DSKLS CTRLR2 
01-MAR-79 09:10 


CZRJHD.P12 


8985 
86 


051376 


051400 
051404 


051410 
051410 
051412 


000737 


012601 
000200 


000002 
000002 


MACY11 


30A(1052) 24-MAY-79 
ECC GENERATION CONTROL ROUTINE 
BR 1$ 
l 
3 AFT 
5$: BIS #MCLK,aRI 
BIC #MCLK,aRI 
4$: 
MOV (SP)+,R1 
RTS RO 
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; CONTINUE 


;THIS EXTRA CLOCK IS TO BRING ECH HIGH 


ER THIS CLOCK POSITION REGISTER MAY BE 10040 OR 10041 OCTAL 


SET CLOCK 
;CLEAR CLOCK 


3;POP STACK INTO RI 


SEQ 0203 
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051546 
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010046 
010146 


000207 


09:1 


050632 


000020 


177777 


050616 
050654 


050616 


050620 055726 
050622 055730 
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SOFTWARE DISK DATA ECC GEN. ROUTINE 


~SBTTL SOFTWARE DISK DATA ECC 


sp, eereererereererereererererereerererese 


SEQ 0204 
GEN. ROUTINE 


eeneneareraeneeaneaeeeeeeeeereeet 


>*THIS SUBROUTINE GENERATES THE ECC FOR WHAT IS ON DISK AND INSERTS THEM 
;*0N LOCATIONS ‘'D1SK*+1000°° AND ‘‘DISK+1002"' 


sp eeeeeererererererererererterererenese 


geeetareteterakereneetektereeee 


FILLEC: 
MOV RO,-(SP) >;PUSH RO ON STACK 
MOV R1,-(SP) :;PUSH R1 ON STACK 
MOV R2,-(SP) 3;PUSH R2 ON STACK 
MOV R3,-(SP) 7;PUSH R3 ON STACK 
MOV R4,-(SP) 3;PUSH R4& ON STACK 
MOV R5,-(SP) > ;PUSH RS ON STACK 
CLR a#PosITl :CLEAR POSITION 
CLR a#GECCl ;CLEAR GECCI 
CLR a#GECC2 CLEAR 
MOV #DISK,RI sPOINTER TO DATA FOR ECC GENERATION 
MOV #256. ,R2 ;COUNTER FOR NUMBER OF DATA WORDS 
9$: MOV #16. ,R3 ;COUNTER FOR NUMBER OF BITS PER WORD 
MOV (R1)4+,R4 sDATA IN RG 
108: ROR RG sGET ONE DATA BIT IN CARRY 
BCC 11% ;BRANCH IF DATA BIT IS ZERO 
MOV #-1,aMECDATA ;ECC DATA BIT IS A ONE 
BR 12% ;BRANCH TO GENERATE ECC 
11$: CLR Q#ECDATA sECC DATA BIT IS A ZERO 
12$: JSR PC ,a#ECTEST 3G0 TO GENERATE ECC 
DEC R3 :DECREMENT BIT COUNT 
BNE 10% ;BRANCH IF 16 BITS NOT DONE 
DEC R2 sDECREMENT WORD COUNT 
BNE 9$ ;BRANCH IF 256 WORDS NOT DONE 
MOV Q#GECC1,a#D1SK*+<256.%2>; INSERT ECC] ON DISK 
MOV Q#GECC2,a#DISK+<257.%2>; INSERT ECC2 ON DISK 
MOV (SP)+,R5 3;POP STACK INTO R5 
MOV (SP)+,R4 7;POP STACK INTO R4& 
MOV (SP)+,R3 :;POP STACK INTO R35 
MOV (SP)+,R2 :;POP STACK INTO R2 
MOV (SP)+,R1 ::POP STACK INTO R1 
MCV (SP)+,RO ::POP STACK INTO RO 
RTS PC 
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051550 
051554 


051630 
051630 
051634 
051636 
051642 


051716 


051772 


052032 
052032 
052036 
052040 
052044 
052144 
052144 
052146 
052152 
052156 


052214 


052226 
052264 


052272 
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104401 
000425 


013746 
104402 
104401 
000425 


004737 


000417 


013746 
104402 
104401 
000437 


104412 
012637 
104401 
000416 


013746 
104402 
104401 
000416 


013746 
104402 
104401 


051556 


014756 
051644 


060506 
014746 
000026 
052534 
014756 


000000 
014756 


051774 


014744 
052046 


014756 
052230 


014744 
052300 
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000004 


SOFTWARE DISK DATA ECC GEN. ROUTINE 


-SBTTL RH BASE ADDRESS CHANGE ROUTINE 


-@@etereteterereererereereretreresreeeeeerereeteeeeeeteeeeeeeetenese 


3° THIS ROUTINE WILL ALLOW THE CHANGE OF THE BASE 
i ADDRESS FROM 17670C TO ANY TYPED VALUE 
; ; ‘teeter errerereterertereetereetertereeeererekeaetekeeeeeresteneeeeteraeees 
BASECH 
,658 si TYPE ASCIZ STRING 
BR 64$ GET OVER THE ASCiZ 
958: .ASCIZ <15><12>/PRESENT BASE ADDRESS OF REGISTERS IS / 
HOV QMRHCS1,-(SP) ;GET READY TO TYPE OLD BASE 
Y 
TYPE ozs Si TYPE ASCIZ STRING 
BR GET OVER THE ASCIZ 
31678: .ASCIZ o18><12>/TYPE NEW BASE ADDRESS FOLLOWED BY ‘CRY / 
SR PC ,a#STKINT S INITIALIZE THE TTY KEYBOARD 
MOV #RHDB RO ;GET STARTING ADDRESS OF REGISTERS 
MOV #22.,R1 :NUMBER OF REGISTERS 
MOV #ADTIMO,ae4 :SET UP TO TEST THIS ADDRESS 
CMP aSP,a#RHCS! NEW CSR? 
BEQ 1$ NO, THE OLD ONE WAS RETYPED 
TST a0(SP) ~ SACCESS THE NEW ADDRESS 
SUB a#RHCS1,a$P GET THE ADDRESS OFFSET 
28: ADD asP,(RO)+ ;AND PLUG IT IN 
DEC RI ZONE LESS ADDRESS TO CHANGE 
BNE 28 ;BUT DO SOME MORE 
TYPE 698 iz TYPE ASCIZ STRING 
BR 68$ GET OVER THE ASCIZ 


FS ta ASCIZ <15><12>/PRESENT. VECTOR ADDRESS IS / 


SEQ 0205 


1$: mov ; AMRPVEC,-(SP) GET READY TO TYPE OLD VECTOR ADDRESS 
TYPO 
TYPE ,71$ ;:1YPE ASCIZ STRING 
BR 70$ “GET OVER THE ASCIZ 
gl: “ASCIZ <15><12>/TYPE NEW VECTOR ADDRESS OR RETYPE OLD ONE FOLLOWED BY ‘‘CR'’ / 
"  apoct 
MOV (SP)+,a#RPVEC ;SETUP VECTOR ADDRESS 
TYPE ,73$ Sz TYPE ASCIZ STRING 
BR 72 GET OVER THE ASCIZ 
53738: “ASCIZ <15><12>/NEW BASE WILL REMAIN = / 
"mov a#RHCS1,-(SP) 
TYPOC 
TYPE, 75$ ;;1YPE ASCIZ STRING 


BR 74% ;GET OVER THE er 
acm -ASCIZ c18><12>/NEW VECTOR WILL REMAIN - 


MOV Q#RPVEC,-(SP) 
TYPE 17% 3 TYPE ASCIZ STRING 
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052336 
052336 
052342 


052350 
052350 
052354 


952426 
052426 
052432 
952510 
052510 
052514 
052516 
052522 


052530 


052542 


052614 
052614 


052620 


052644 
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000417 


104401 
000402 


104401 
000424 


104401 
000426 


012746 
104402 
104401 
000402 


000137 
022626 
104401 
000424 


000137 


000000 


000772 


ey >. 


052344 


052356 


052434 


000200 
052524 


017360 
052544 


051550 


046116 
052620 


010000 
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BR 
-ASCIZ 
TYPE 
BR 
-ASCIZ 
TYPE 
BR 
-ASCIZ 
TYPE 
BR 
-ASCIZ 
MOV 
TYPOC 
TYPE 
BR 
-ASCIZ 


JMP 


: CMP 


TYPE 
BR 
eASCIZ 
JMP 


CHANGE ROUTINE 


76% ;GET OVER THE aa? 
<15><12>/UNTIL PROGRAM IS RELOADED. / 


19% 7; TYPE ASCIZ STRING 
78$ 7:GET OVER THE ASCIZ 
<15><12>/ / 


,81$ 22 TYPE ASCIZ STRING 
80% ;GET OVER THE ASCIZ 
<15><12>/UNLESS HALTED AND MANUALLY RESTARTED, / 


, 83% 23 TYPE ASCIZ STRING 
82$ ;GET OVER THE ASCIZ 
<15><12>/PROGRAM WILL AUTOMATICALLY RESTART FROM / 


#RA,-(SP) 

85% 3: TYPE ASCIZ STRING 

845% ::GET OVER THE ASCIZ 
<15><12>/ / 

a#BEGIN sALL DONE, NOW START OVER! 
(SP)+,(SP)+ 

vty 7a TYPE ASCIZ STRING 


;GET OVER THE ASCIZ 
o18><12>/SELECTED. ADDRESS DID NOT RESPOND. / 


a#BASECH 


:*THIS 1S A LITTLE ROUTINE THAT TESTS NED BIT 11 IN RHCS2 
;*THIS LOOPS HERE FOR EVER 
7*T0 BE USED ONLY IF DRIVES PRESENT LOOKING AT NED DOES NOT AGREE 
;*W1ITH WHAT IS REALY THERE 


ERUNIT: 0 
ERSTART:JSR 
MOV 
1$: TST 
BIT 
BEQ 
BR 
2$: BR 


;UNIT UNDER MANUAL TEST 
PC ,a#CLDISK :SET GENERAL REG. 
Qa#ERUNIT,AR2 ;SELECT UNIT 


ARS ; TEST RHERI 
WNED ,aR2 ; TEST NED 

2$ BRANCH IF GOOD 
1$ ;NED NOT SET 

1$ :NED SET 


SEQ 0206 
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-SBTTL DISK SIMULATION 


ppeeeererererrerereereeerereerreerererereeereeeeeeeeereerereeTe 
ppeeeeerererrrerererereererrerrereererererereteteeereeeereereres 
;*IN A WRITE HEADER AND DATA COMMAND FILL THE FOLLOWING 
;*WCLY=WITH CYLINDER TO BE ON DISK 

s*WSECTR=WITH SECTOR AND TRACK TO BE ON DISK 


oe. 
es ees 


;*WKEYT= WITH KEY! TO BE ON the 

;*WKEY2= WITH KEY2 TO BE ON DISK 

;*FNWORD= NO OF DATA WORDS TO BE WRITTEN ON DISK 
setne COMMAND THEN IS JSR PC,COMWHD 


IN A WRITE DATA COMMAND FILL THE —- 
*CYL=WI1TH CYLINDER TO BE FOUND ON DIS 
;*SECOTR= WITH SECTOR AND TRACK TO BE F OUND ON DISK 
;*KEY1= WITH KEY] TO BE FOUND ON DISK 
i eKEV2= WITH KEY2 TO BE FOUND ON DISK 

1 MUST BE ONE 
 SNOWORD= WITH NUMBER OF DATA WORDS TO BE WRITTEN 
;*THE COMMAND THEN IS JSR PC,COMHD 


-* 


° 
3*IN A READ HEADER AND DATA COMMAND FILL THE FOLLOWING 
;*CYL= WITH CYLINDER TO BE FOUND ON DISK 


:*SECOTR= WITH SECTOR AND TRACK TO BE FOUND ON DISK 
s*KEY1= WITH KEY1 TO BE FOUND ON DISK 
:*KEY2=WITH KEY2 TO BE FOUND ON DISK 


Be Be Be Se Be 


;*DAWORD= WITH oe OF WORDS TO BE FOUND ON DISK 
:#;X=0 MUST BE ZERO 
:* THE COMMAND THEN IS JSR PC,COMHD 


-* 

:*IN A READ DATA COMMAND FILL THE FOLLOWING 

:*CYL= WITH CYLINDER TO BE FOUND ON DISK 

:*SECOTR= WITH SECTOR AND TRACK TO BE FOUND ON DISK 

:*KEY1= WITH KEY1 TO BE FOUND ON DISK 

S*KEY2=W1TH KEY2 TO BE FOUND ON DISK 

2 @DAUORDS WITH NUMBER OF WORDS TO BE FOUND ON DISK 
X=0 MUST BE ZERO 


‘SiMe COMMAND THEN IS JSR PC,COMHD 


SEQ 0207 
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052646 


052674 
052676 


052720 
052726 
052734 
052740 


052742 


052756 
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000000 
011637 
62737 
0046 
0146 


se 


At 4 ee 4 
o 
w 
a 
oa 


2777 


ooo oo°o°o°o°o 


015132 
000004 


000001 


000001 


000113 
052646 


053012 
177740 
052762 
057056 


See. > SS... Slee. 
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a jseeeeeceeeesecceseseseeeensoeesusedensionsoensecaceneeeeeeeses 
S*WRITE DATA COMMAND 
;*OR READ COMMAND, 1.£ DATA ONLY, OR HEADER AND DATA 


t  eeeeeereeneerereeereeereerereeereerrereererteeeererereerereetes 


:*THIS SUBROUTINE IS THE FIRST IN A SERIES OF NESTED SUBROUTINES 
NM DIAGNOSTIC MODE, AND EXTRA DIAGNOSTIC INDEX, AND THE 
se’ 4 


3*1T THEN CALLS THREE OTHER SUBROUTINES, WHICH IN TURN CALL 
;*OTHER SUBROUTINES. THE SUBROUTINES CALLED HERE ARE: 


Ae SEARCH . GISSUES SECTOR CLOCKS TO SET SECTOR FOUND FLOP 
:e RDHE AD - ;READS THE SECTOR HEADER 

he WRDATA SWRITES THE SECTOR DATA (WRITE OPERATION) 

;* REDATA READS THE SECTOR DATA (READ OPERATION) 


RUNCTR: .WwORD 0 
COMHD: MOV (SP) ,a#PCJSR SAVE PC OF JSR + 4 


015132 SUB #4 ,a#PCISR :SAVE PC OF JSR 
MOV RO.=(SP) >:;PUSH RO ON STACK 
MOV R1,-(SP) > :PUSH RI ON STACK 
MOV R2.-(SP) > PUSH R2 ON STACK 
MOV R3,-(SP) >:PUSH R3 ON STACK 
MOV R4.=(SP) = PUSH R& ON STACK 
MOV RS .-(SP) > PUSH RS ON STACK 
142072 MOV #DMD, ARHMR :SET DIAGNOSTIC MODE 
142064 BIS #MINX, @RHMR =SET DIAGNOSTIC INDEX 
142056 BIC #MINX, QRHMR [CLEAR DIAGNOSTIC INDEX 
142030 BIS #G0,aRHCS1 sISSUE 'GO' BIT & STALL ‘TILL "RUN? 
“FUNCTION CODE WAS ISSUED BY THE TEST 
052646 RUNWAT: MOV #75. QM#RUNCTR  :LOAD STALL COUNT = APPROX. 450US FOR 11/50 CPU 
1$: DEC a#RUNCTR =CQUNT DOWN ONE 
BNE 1$ :CONTINUE UNTIL = 0 
MOV SECOTR, =(SP)  ;:GET DESIRED SECTOR/TRACK 
BIC #177740, (SP) “MAKE ONLY SECTOR 
MOV (SP) +, aaTRK “SAVE SECTOR 
JSR Rl aeSEARCH ISSUE SECTOR CLOCKS <oeeseeeeee------ > 


SEQ 0208 
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053022 


053024 


053026 
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000000 


000240 


000240 


000240 


000240 


053132 


053030 005737 015124 


053034 


053036 005737 053020 


001017 
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TRK: -WORD 0 


MOV R1,aaSSYN 

MOV Rl, @#HEDGAP 
MOV Rl. a#HEDSYN 
JSR R1,a@#RDHEAD 


wORD 0 
SECOTR: wORD 0O 
KEY1: wORD 0 
KEY2: wOoRD 0 
x: woRD 0 


¢ 7 
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SEQ 0209 


;GOING TO MOVE NOPS 

;NOP INTO SSYN 

NOP INTO HEDGAP 

;NOP INTO HEDSYN 

READ THE HEADER <------------- > 


;CYLINDER ADDRESS 
;SECTOR/TRACK ADDRESS 
;KEY1 WORD 


tod WORD 
X=1 WRITE COMMAND 
X=0 READ COMMAND 


;DUMMY ERROR CALL LOCATIONS FOR THE READ HEADER OPERATION 


SSYN: NOP 


HEDGAP: NOP 


HEDSYN: NOP 


TST QvERFLGS 
BNE OuT 


TST aex 


;1F “ERROR 2°’ INSERTED BY RDHEAD 
; SUBROUTINE, 
;1S NOT DETECTED. 
:1S GIVEN BECAUSE SYNC=144000 


THEN THE FIRST SYNC 
NO BAD DATA 


;CANNOT BE READ. WORD NUMBER 
:1S ‘"l'' BECAUSE THIS IS THE FIRST 
:WORD TESTED. 


71F “ERROR 3°° INSERTED BY 
;RDHEAD SUBROUTINE, 
HEADER GAP O'S WERE NOT 
;WRITTEN RIGHT. 


| Pg NO'' CONTAINS, SAY 
;5(8), 
sWwORD OF A 5 WORD HEADER 
:GAP THAT IS WRONG. 


:""BAD DATA’ CONTAINS WHAT IS 
;GOING ON THE DISK. 


THEN THE 


THEN IT 1S THE THIRD 


:1F “‘ERROR 3°° INSERTED BY RDHEAD 
; SUBROUTINE, 
;GENERATED BY DCL IS WRONG, 

;OR THE LAST BYiE 

:OF THE HEADER GAP 0°S IS WRONG. 


IN ELTHER CASE WORD NO=6, 
;RIGHT BYTE 1S HEADER 0, 
LEFT BYTE IS SYNC. 


7‘BAD DATA’ HAS WHAT IS GOING 
:OnN DISK. 


WERE ANY ERRORS DETECTED ? 
;1F YES, EXIT 


71S 17 A DATA WRITE OPERATION ? 


THEN THE HEADER SYNC 


on 
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053042 
053044 


053050 
053052 


053062 
053064 
053070 
053072 


053074 


053110 


001410 
005737 


001011 


004137 
000000 

000000 
000404 


004137 


000000 
000000 


012605 


000207 


« 


053124 


054376 


057332 
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J 
NOWORD: . 
Vs 


DAREAD: 
DAWORD: . 


OUT: 


D1 
24-MAY-79 15:07 PAGE 212 


BEQ 
TST 


ae#NOSYNC “1S THIS FORCED HEADER ERROR COMMAND ? 
SIF YES  NOSYNC==1 THEN WRITE OR READ 
‘1S SHUT OFF, SO BRANCH OUT 
‘If NOSYNC=0 THEN CONTINUE 
out TEKIT IF SET eeecenceeeeeccncecnnee > 
R1,a#WRDATA SWRITE DATA <seeeeeeenneeneeene-eee > 
; "NO OF WORDS TO BE WRITTEN 
Our TEXT soccee ween nnn n enn n ne ee nee > 
R1,QWREDATA SREAD DATA <eccencccnnncnnncsccense > 
; "NO OF WORDS TO BE READ 
(SP)+,R5 :sPOP STACK INTO RS 
(SP)+_R4 [:POP STACK INTO RG 
(SP)+_R3 ::POP STACK INTO R3 
(SP)*_R2 *:POP STACK INTO R2 
($P)4_R1 :!POP STACK INTO R1 
($P)+_RO :!POP STACK INTO RO 
PC EXIT 


SEQ www) 
DARE AD ;NO...THEN DO A DATA READ 


. % 
CZRIHDO ,RPOS/5/6 DSKLS Pipes MACY11 S0A(1052) 24-MAY-=79 15:07 PAGE 213 


CZRIHD.P12 01-MAR=79 09:10 DISK SIMULATION SEQ 0211 
9328 
9329 sp eeeeeeeeeerereerererereerreeeerererererereeereneeeKeneeeeererere 
9330 
4 +4 >*THE DISK SECTOR 1S DEVIDED AS FOLLOWS 
9333 #19 WORDS OF 0, ONE WORD 144000 
4 ta *THESE MAKE 39 BYTES FOR SECTOR GAP AND ONE SYNC. BYTE 
9336 
9337 053112 014400 RSYNC: 14400 
9338 053114 000000 RCYL: O 
9339 053116 000000 RSETR: 0 
9340 053120 000000 RKEY1: 0 
9341 053122 000000 RKEY2: 0 
9342 
9343 
9344 :*5 WORDS OF O'S, ONE WORD 144000 
9345 s*THESE MAKE 11 BYTES FOR HEADER GAP AND ONE SYNC. BYTE 
9346 >*THESE ARE DCL GENERATED 
9347 
9348 
9349 
9350 :* THERE ARE 256 WORDS OF DATA 
9351 s* THERE ARE 2 WORDS FOR ECC GENERATED BY DCL 
9352 :#15 WORDS OF O'S FOR DATA GAP AND TOLERANCE GAP 
9353 sleeeecerereerrerereeerereeerrereerererrerenreneeeeneenesereerene 
9354 
9355 
9356 
9357 
9358 


_ 
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D.P12 01-MAR-79 09:10 DISK SIMULATION SEQ 0212 
9360 spetteeeerererrrerererrrrerererererrereerrereererereneneeeeeeeeeete 
9361 s*READ DISK HEADER 
9362 ppeeteeeeerereerererrerrerreerrrre reer ereeeeeeReeeeeK eee Reese eee 
9363 
9364 
9365 
9366 
9367 
9368 053124 000000 NOSYNC: 0 sFORCED HEADER ERROR = -1 
9369 sNORMAL = 0 
9370 053126 000000 Ty: 0 ERROR TYPE NO. 

4 34 053130 000000 ERWORD: 0 sERROR WORD NO. 
9373 
9374 
9375 
9376 053132 012137 053114 RDHEAD: MOV (R1)+*,@aRCYL ;STORE CYLINDER ADDRESS 
9377 053136 012137 053116 MOV (R1)*,@#RSETR :STORE SECTOR AND TRACK ADDRESS 
9378 053142 012137 053120 MOV (R1)*#,@M@RKEY1 ;STORE KEY! 
9379 053146 012137 053122 MOV (R1)*,Q@M@RKEY2  ;STORE KEY2 
9380 053152 012137 053722 MOV (R1)+,a@COMPA sSTORE COMPARE OR NOT 
4+ 4 053156 010146 MOV R1,-(SP) >;PUSH R1 ON STACK 
9383 053160 013700 014776 MOV Q#RHMR ,RO sRO CONTAINS MAINTANENCE REG. 
9384 053164 012705 000002 MOV #2,R5 >R5 1S A COUNTER FOR WORDS 
9385 053170 012710 000001 MOV #DMD ,aRO ;SET DIAG. MODE 
9386 053174 052710 000010 BIS #MSTCK,aRO :SET SECTOR CLOCK FOR FIRST WORD 
9387 053200 052710 000002 BIS #MCLK ,aRO sSET MAINT.CLOCK FOR FIRST WORD 
d+ 053204 042710 000012 BIC #MSTCKIMCLK, aro RESET THEM 
9390 053210 000404 BR 23 :DON'T GIVE SECTOR CLOCK FIRST (IME 
9391 053212 012710 000013 1$: MOV @MSTCK'MCLK'!DMD,@RO;SET SECTOR, CLOCK, DIAG. MODE, RESET INDEX 
44 053216 042710 000012 BIC WMSTCK'MCLK,@RO ; RESET SECTOR & MAINT.CLOCK 
9394 053222 012702 000007 2$: MOV #7,R2 ;LOAD BYTE COUNTER 
9395 053226 052710 000002 3$: BIS #MCLK,aRO :SET MAINT. CLOCK 
9396 053232 042710 000002 BIC #MCLK,aRO RESET IT 
9397 053236 005302 DEC R2 ;BYTE COUNTER 
9398 053240 001372 BNE 3$ sCONTINUE IF BYTE NOT COMPLETE 
9399 053242 005305 DEC RS ‘WORD COUNTER 
+ 053244 001362 BNE 1$ : CONT INUE IF WORD NOT COMPLETE 
9402 053246 012702 000022 MOV #18. ,R2 ;LOAD NO OF WORDS OF ZEROS 
9403 053252 005037 053720 4$: CLR aewORD 700 O'S 
9404 053256 004737 053724 JSR PC ,a#READ TREAD O°S <oweeeeneneeeenecee= > 
9405 053262 005302 DEC R2 ; COUNT DOWN WORDS 
ae 053264 001372 BNE 4$ ; CONTINUE 
6 
9408 053266 013737 053112 053720 MOV QFRSYNC ,a#WORD s SYNC, WORD 
9409 053274 004737 053724 JSR PC,@#READ READ [T <oceeecccoocoscoesoece > 
9410 053300 032710 001000 BIT #DTSY, a@RO > SYNC. BYTE DETECTED? 
9411 053304 001012 BNE 5$ ;CONTINUE IF SYNC DETECTED 
9412 053306 012737 000001 053130 MOV #1, a#ERWORD “ERROR WORD NO 
9413 053314 013737 053112 001124 MOV AARSYNC ,AFSGDDAT; SYNC WORD 
9414 053322 012737 104002 053022 MOV #104002, a@SSYN ; INSERT “ERROR 2°° IN SSYN 
9415 053330 000571 Bi 13$ “BRANCH OUl eoreeeeeeeeeene----- > 
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053332 


053410 
053414 
053420 


053422 
053426 


053430 


053504 
053506 


053530 
053532 


053536 
053540 


053606 
053612 


000503 
013725 


001426 
005737 


001406 
005737 


000443 


013725 
000440 


015144 
053722 


054712 
000005 
000006 
054156 
054154 


053130 
001124 


054154 
104003 


054154 
054156 


053112 
053124 


054154 
001124 
053112 
054154 


000006 
104003 


054154 
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053720 
053720 
053720 
053720 
053720 


053130 


001126 
053024 


054154 


001124 
001126 
053130 
053026 


5$: 


6$: 


7$: 


10$: 


24-MAY-79 


@#RCYL, a#WORD 
PC ,a#READ 
a#RSETR, a#WORD 
PC ,@#READ 
aaRKer ,a#wORD 
PC ,a#READ 
anRKEYD. a#wWwORD 
PC ,a#READ 
a#UCRC, a#WORD 
PC ,a#READ 


a#TESOTE 
13$ 
aa COMPA 
11$ 


G 1 
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READ teen 


TREAD THER Cenccecerenenennnnnns > 
SETUP KEYI 

TREAD [1 <eeeeennnnnennnnnnnnnee > 
:SETUP KEY2 

TREAD [1 <wsee-eeennnnnnnenennee > 
SETUP CRC 

TREAD [1 <eeeeenennennnnnnnnene- > 


31S THIS A DRIVE TIMING ERROR ? 
:BRANCH OUT IF YE 

1S THIS A READ OR WRITE COMMAND ? 
[DO READ IF = 0 


DIAGNOSTIC WRITE COMMAND 


WHEGAP, RS 
#5 ,R2 

#6 ,a#ERWORD 
PC ,a#WRITE 
a#WWwORD 


7$ 

R2,a#ERWORD 
a#$GDDAT 
a#WWORD ,SBDDAT 


;POINTER FOR HEADER GAP 

;NO OF WORDS OF ZEROS 

ERROR WORD NO SET 

;FOR HEADER GAP 

TEST WRITTEN WORD 

;CONTINUE IF GOOD, THAT IS = 0 
;WORD NO IN ERROR 

;GO00D thy SHOULD BE 0 


:BA D DAT 
+ aad ,@#HEDGAP; "ERROR oe GOES IN HEDGAP 


a#wwORD,(R5)¢ 
R2 

6$ 

PC ,a#WRITE 

1 ameseenatmersaton 


10 
@#NOSYNC 


14% 

— 
a#$GDDAT 
15$ 


SBRANCH OUT ----e-eenenennensnee > 
;SAVE HEADER GAP 


sWRITE HEADER (DATA) GAP SYNC 


71S THIS FORCED HEADER ERROR COMMAND ? 
;1F YES NOSYNC=-1 THEN WRITE OR READ 
71S SHUT OFF SO BRANCH OUT 

;1f NO NOSYNC=0 THEN CONTINUE 

PRINT IT IF TRUE ERROR 


:18 11 = 0? \ 

: CONTINUE 1F GOOD 

;11 SHOULD BE ZERO 
:BRANCH TO TYPE ERROR 


O#RSYNC ,AMSGDDAT; GOOD DATA 
Q#WWORD ,A#SBDDAT;BAD DATA 


#6, a#ERWORD 


#104005, Q#HEDSYN 
138 


a#wWWORD,(R5)* 
13% 


BRANCH QUI sence nnn nnn nnn----- > 
+15 DATA SYNC, 
x1 


SEQ 0213 


H 1 
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CZRJHD.P12 —O1-MAR=79 09:10 DISK SIMULATION SEQ 0214 
gure :*READ COMMAND START FROM HERE 
9474 053614 012702 000005 1i$: MOV. #5, R2 
9475 053620 005037 053720 128: CLR WORD 
9476 053624 004737 053724 JSR PC, AW READ ;READ HEADER GAP <--------------- > 
9477 053630 005302 DEC —s RR TARE 5 HEADER GAP ZEROS COMPLETE ? 
9478 053632 001372 BNE 128 :1f NOT CONTINUE 
9479 053634 013737 053112 053720 MOV — @WRSYNC,@#WORD ;SYNC WORD 
9480 053642 004737 053724 JSR PC, aW READ READ HEADER (DATA) SYNC) 
9481 053646 005737 053124 TST — @#NOSYNC FORCED SYNC ERROR ? 
9482 053652 001404 BEQ 168 :1F NOT ERROR COMMAND CONTINUE 
9483 053654 032710 001000 BIT #DTSY,aRO SYNC, DETECTED 
9484 053660 001415 BEQ 138 :1f ZERO BRANCH OUT ------------ > 
9485 053662 000403 BR 178 :1F NOT ZERO BRANCH TO ERROR 
486 
9487 053664 032710 001000 16$: BIT WDTSY, @RO =; SYNC. DETECTED ? 
9488 053670 001011 BNE 138 TEXIT IF YES ----eeee-e-------- > 
9489 053672 012737 000006 053130 178: MOV = #6,a#ERWORD ERROR WORD NO. 
9490 053700 013737 053112 001124 MOV — @#RSYNC ,AMSGDDAT:SYNC WORD 
9491 053706 012737 104002 053026 MOV «#104002 ,a#HEDSYN: MOVE “ERROR 2" 
9492 053714 138: 
9493 053714 012601 MOV ($P)4#,R1 ;;POP STACK INTO RI 
949% 053716 000201 RTS RY TEXT eeeeenn enna nnn nnnnnnennn- > 
9495 
9496 
9497 
9498 
9499 
9500 
9501 
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053722 


053724 


054134 
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000000 
000090 


004737 


000002 
000001 
053720 


000020 


050624 
000020 
177777 
050616 
000001 
053720 
000021 
050624 


050636 


050624 
000020 
177777 
050616 
000001 
053720 
000021 
050624 


050636 
050654 
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050616 


050616 


spetteeeerererrreererererererererererrerereereeeereneeeeeerererenee 


24-MAY-79 


[*READ ONE WORD IN "WORD" 


ppetteeerererrereeeerereseerrerereeterereereeeeeereeeenenerenanetet 


WORD: 
COMPA: 


READ: 


5$: 
6$: 


2$: 


3$: 


7$: 
8$: 


4$: 


R2,-(SP) 
#2,R5 
#DMD ,aRO 
— 


1 
#ARD ARO 
#7 


R 
WMSTCKIMCLK ARO 


av TSECCG 
6$ 
—— 


#-1,Qa#ECDATA 
6$ 


@#ECDATA 
#DMD,-(SP) 
a#wORD 

2$ 


#MRD! DMD, (SP) 
(SP)+,aRO 
aa TSECCG 


3$ 

QA DATENV 

PC ,awECTEST 
#MCLK ,@RO 
av TSECCG 


8$ 

#MRD ARO 
#-1,Q#ECDATA 
8$ 

O#ECDATA 
#OMD ,-(SP) 
a#wORD 

4% 

#MRD! DMD, (SP) 
(SP)+,aRO 

av TSECCG 

9$ 


a#DATENV 
PC ,@w#ECTEST 


1 1 
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>;PUSH R2 ON STACK 


;WORD COUNTER 


;SET DIAG. MODE 

;CHECKING IF THERE IS A ONE 
;1F NO ONE BRANCH 

7SET BIT 4 IF DATA HAS ONE 


;BYTE COUNTER 


;SET CLOCK,DATA IF ANY, SECTOR 
:1S THIS BIT TO GENERATE AND TEST ECC ? 


;BRANCH IF NO 


:1S DATA BIT A ONE ? 
;BRANCH IF DATA BIT IS 0 
:;ECC DATA BIT IS A ONE 


; BRANCH 


;ECC DATA BIT 1S A O 

KEEP ONLY DIAG. MODE 

;CHECKING IF THERE IS A ONE 

;1f NO ONE BRANCH 

KEEP DATA AND DIAG. MODE 

;PUT IN DATA,RESET CLOCK, SECTOR 

1S ECC TO BE GENERATED FOR THIS BIT 


;BRANCH IF NO 


;NUMBER OF CLOCKS GIVEN FOR DATA ENVELOPE 
7GO0 TO GENERATE AND TEST ECC 


SET CLOCK 


1S THIS BIT TO GENERATE ECC 


;BRANCH IF NO 


1S DATA BIT A ONE 

BRANCH IF DATA BIT IS = 0 
sECC DATA BIT IS A ONE 

; BRANCH 


;ECC DATA BIT IS = 0 

;KEEP DIAG. MODE 

;CHECKING IF THERE IS A ONE 
;BRANCH IF NO ONE 

;KEEP DIAG. MODE AND DATA 

SET DATA, DIAG. MODE, CLEAR CLOCK 
3:18 THIS BIT TO GENERATE ECC 


;BRANCH IF NO 


NUMBER OF CLOCKS FOR DATA ENVELOPE 
;GO TO GENERATE AND TEST ECC 


SEQ 0215 
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054152 


005302 


000207 
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9$: 


24-MAY-79 «15:07 


' 
(SP)4#,R2 
PC 


dy 
PAGE 


218 


;BYTE COUNTER 
;CONTINUE IF ONE BYTE NOT COMPLETE 
;WORD COUNTER 


CONTINUE IF ONE WORD NOT COMPLETE 
F444 STACK INTO R2 


SEQ 0216 


he 
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D.P12 O1-MAR-79 09:10 DISK SIMULATION SEQ 0217 
9571 s te eeeeeeerererrertererereretereereterereteeeeeeeeeneeeneeeeeeeee 
9572 T*WRITE ONE WORD WHICH COMES BACK IN ‘WWORD" 

9573 ye eteeererereereererererererereererteterereeeeeeeereeeeerNteeene 
9574 

9575 

9576 

9577 

9578 

9579 

9580 054154 000000 wwORD: 0 

9581 

9582 

9583 

9584 

9585 054156 WRITE: 

9586 054156 010046 MOV RO,-(SP) ;:PUSH RO ON STACK 

9587 054160 010246 MOV R2,-(SP) ::PUSH R2 ON STACK 
$88 054162 010346 MOV R3,-(SP) ::PUSH R3 ON STACK 

9589 054164 010546 MOV R5,-(SP) :EPUSH RS ON STACK 

9590 054166 012705 000002 MOV #2,R5 [WORD COUNTER 

9591 054172 012710 000001 MOV #1,aR0 SET DIAG. MODE 

9592 054176 012702 000007 I$: MOV #7,R2 :BYTE COUNTER 

9593 054202 012710 000013 MOV WMSTCK'MCLK!DMD,@RO;SET SECTOR & MANT. CLOCKS 

9594 054206 032710 000040 BIT #MWR ARO :CHECK WRITEBIT IN MAINT. REG. 

9595 054212 001406 BEQ 2% :BRANCH IF ZERO 

9596 054214 012737 177777 050616 MOV #-1,QMECDATA SECC DATA BIT IS A ONE 

9597 054222 000261 SEC SET CARRY 

9598 054224 006003 ROR R3 :MOVE 1 FORWARD 

9599 054226 000404 BR 3$ 

9600 054230 005037 050616 28: CLR aWECDATA ;ECC DATA BIT IS = 0 

9601 054234 000241 CLC ZCLEAR CARRY 

9602 054236 006003 ROR R3 :MOVE 0 FOR WwWORD 

9603 054240 012710 000001 3$: MOV #DMD ,aRO :CLEAR SECTOR AND CLOCK 

9604 054244 005737 050624 1ST aN TSECCG :1S THIS BIT TO GENERATE ECC ? 

9605 054250 001404 BEQ 4$ :BRANCH IF NO 

9606 054252 005237 050636 INC asDATENV :NUMBER OF CLOCKS FOR DATA ENVELOPE 

9607 054256 004737 050654 JSR PC ,awECTEST :G0 TO GENERATE AND TEST ECC <------=- > 

9609 054262 052710 000002 4$: BIS WMCLK ARO ;SET CLOCK 

9610 054266 032710 000040 BIT #MUR, RO :CHECK WRITE BIT IN MAINT. REG. 

9611 054272 001406 BEQ 5$ :BRANCH IF ZERO 

9612 054274 012737 177777 050616 MOV #-1,QMECDATA = SECC DATA BIT IS A ONE 

9613 054302 000261 SEC SET CARRY 

9614 054304 006003 ROR R3 :MOVE 1 FOR WWORD 

9615 054306 000404 BR 6$ 

9616 054310 005037 050616 o$: CLR aWECDATA :ECC DATA BIT 1S ZERO 

9617 054314 000241 CLC :CLEAR CARRY 

9618 054316 006003 ROR R3 :MOVE 0 FOR WWORD 

9619 054320 012710 000001 6$: MOV #DMD ARO ZCLEAR CLOCK 

9620 054324 005737 050624 1S1 aFTSECCG :1S THIS BIT TO GENERATE ECC ? 

9621 054330 001404 BEQ 7$ BRANCH IF NO 

9622 054332 005237 050636 INC asDATENV [NUMBER OF CLOCKS FOR DATA ENVELOPE 
9623 054336 004737 050654 JSR PC ,awECTEST :G0 TO GENERATE AND TEST ECC <==----=- > 
624 

9625 054342 005302 7$: DEC R2 ;COUNT FOR BYTE END 


9626 054344 001346 BNE 4$ ;1f NOT BYTE END CONTINUE 
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054346 
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000207 
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;COUNT FOR WORD END 
;1F NOT WORD yg CONT INUE 


SEQ 0218 
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054442 


054522 
054524 
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000000 
000400 
000000 


#11137 


=—Oo—— Oo — — — 


001406 
004737 


054370 
053722 


000016 
055734 
177777 


014776 


054374 
015142 
bg 444 


054154 


054156 
054154 


050624 
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ppettereereererrereerrrererrerierereeerrreerereeeeerereneReeeeeee 


s*WRITE DATA HOUSEKEEPING ROUTINE 


pp teereerererererereerererreereretreererereneeteeeenenerenereTees 


a 1 
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COUNTD: 0 
FORMAT: 256 
ZWORDS: 0 
WRDATA: 
MOv (R1),a#COUNTD ;STORE NO. OF WORDS TO BE WRITTEN 
MOV (R1)4+,R2 7SAME IN R2 
MOV (R1)+, @4COMPA : COMPARE OR NOT 
MOV RO,-(SP) : s PUSH RO ON STACK 
MOV R1,-<SP) :;PUSH R1 ON STACK 
MOV R2,-(SP) >;PUSH R2 ON STACK 
MOV R3,-(SP) :;PUSH R3 ON STACK 
MOV R4,-(SP) >;PUSH R4& ON STACK 
MOV #14.,R1 sNO. OF TOLERANCE GAP WORDS 
MOV #TOLGAP, R3 sSTART OF TOLERANCE GAP TABLE 
1$: MOV oe (R3)¢ sMAKE IT 177777 
DEC 318 14 COMPLETED ? 
BNE i$ ;1F NOT, CONTINUE 
MOV a#RHMR,RO :RO CONTAINS MAINTANENCE REG. 
MOV aa#FORMAT,-(SP) 
SUB a#COUNTD, (SP) 
MOV (SP) ,a#ZWORDS sNO. OF ZERO WORDS TO BE WRITTEN 
MOV (SP)+,R4 
TST aavTSECC s1S THIS AN ECC TEST 
BEQ 7$ ;BRANCH IF NO 
MOV #-1,a#TSECCG ; THESE BITS ARE bh GENERATE ECC 
7$: MOV #DISK,R3 > SIMULATED DISK AREA 
2$: JSR PC, ,aaWRITE WRITE ON SIMULATED DISK 
MOV a#WWORD,(R3)+ : STORE ON SIMULATED DISK 
DEC R2 
BNE 2$ 
TST RG ANY ZEROS TO BE WRITTEN ? 
BEQ 4$ sBRANCH IF NONE TO BE WRITTEN 
3B: JSR PC, ,a#WRITE sWRITE ZEROS ON SIMULATED DISK 
aa MOV a#WWORD,(R3)+ sSTORE THEM 
DEC R4 
BNE 3$ 
4$: te on sNO MORE ECC TO BE GENERATED 
V ° 
5$: JSR PC ,a#WRITE sWRITE ECC) AND ECC2 ON SIMULATED DISK 


MOV a#WWORD,(R3)+ 


DEC R1 


‘ 5$ 
JSR PC ,a#WRITE 
MOV a#wWORD,(R3)* 


;STORE IN WEEC1 AND WEEC2 


WRITE DATA GAP 
STORE 11 


SEQ 0219 
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054574 


054626 


012701 
004737 
013723 
005301 


000201 


000016 
054156 
054154 


nN 1 
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DISK SIMULATION 


6$: 


#14. ,R1 
PC ,a#uRITE 
——— 


6$ 

(SP)+,R4 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO 
R1 


WRITE TOLERANCE GAP ZEROS 
;STORE THEM 


:;POP STACK INTO R4& 
::POP STACK INTO R3 
:;POP STACK INTO R2 
:;POP STACK INTO R1 
7;POP STACK INTO RO 
JERLT eeowsescecseressnassassecess 


SEQ 0220 


CZRIHDO,RPOG/5/6 DSKLS CTRLR2 


CZRIHD.P12 01-MAR-79 09:10 


054630 


000023 


000001 


000400 
000001 


000016 


MACY11 30A(1052) 


DISK SIMULATION 


24-MAY-79 


\ a ee 


B 2 
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:*THIS 1S THE SIMULATED DISK 
;*ONLY ONE SECTOR OF SPACE IS ALLOCATED 


“;@ereeeeeteeeeerrerererereererererererereereeeereereeeteheererere 


sp eteeereererrererereerrererererererererereeeeeeeneeeeeneereeeeee 


SECGAP: 
WSSYNC: 


TOLGAP: 


-BLKW 
-BLKW 
: .BLKW 
~BLKW 
-BLKW 
: .BLKW 


-BLKW 
-BLKW 
~-BLKW 
: ~BLKW 
BLK W 


;SECTOR GAP 38 BYTES OF 0 
SECTOR GAP 1 BYTE OF 0 ONE SYNC BYTE 
HEADER = CYL, SECTOR/TRACK, KEYI, KEY2 


sCRC 

HEADER GAP 10 BYTES OF 0 

;HEADER GAP 1 BYTE OF O ONE SYNC. BYTE 
(ALSO USED IN SILO TEST AS SILO TABLE) 
Seth) SPACE 


sECC 
sDATA GAP 2 BYTES OF 0 
; TOLERANCE GAP 28 BYTES OF 0 


SEQ 0221 


an 


CZRJHDO ,RPOS/5/6 DSKLS Bsa 
Q1-MAR-79 09:10 


CIRIND. Pi2 


055770 


055772 
055776 


056016 


056020 
056026 
056034 
056042 


056050 


056056 
056062 


056064 
056070 
056074 
056100 


056104 


000000 
011637 


005337 
001375 
013746 
004137 


000000 


015132 
000004 


000001 


000001 
000113 
055770 
056150 
177740 


056104 
057056 


2 
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015132 


136750 


136706 
055770 


DISK SIMULATION SEQ 0222 


s,eteeererererererrerererereerrerererererereeeeteneeereneeeeeetee 


;*WRITE HEADER AND DATA 


pp eerererreerereereererrrererereerereeeeeeeeeeeenereneereeteneeee 


:*THIS SUBROUTINE IS THE FIRST IN A SERIES OF NESTED SUBROUTINES 
shee! Bit DIAGNOSTIC MODE, AN EXTRA DIAGNOSTIC INDEX, AND THE 
e’ ‘ 


;*1T THEN CALLS THREE OTHER SUBROUTINES, WHICH IN TURN CALL OTHER 
;*SUBROUTINES. THE THREE SUBROUTINES CALLED HERE ARE: 


= SEARCH ; ISSUES SECTOR CLOCKS TO SET SECTOR FOUND FLOP 
he WRHEAD WRITES THE SECTOR HEADER 
he WRDATA WRITES THE ACTUAL SECTOR DATA 


ALL OF THE ABOVE MENTIONED ‘WRITING’ 1S ACTUALLY DONE INTO A CORE 
;*BUFFER AREA CALLED ‘DISK' VIA THE MAINTENANCE REGISTER (RHMR> 


RNCTR1: .WORD 0 s"RUN' LINE STALi COUNTER 
COMWHD: MOV (SP) ,a#PCUSR ;SAVE PC OF JSR + 4 
SUB #4 ,a#PCJSR sSAVE PC OF JSR 
MOV RO,-(SP) :;PUSH RO ON STACK 
MOV R1,-(SP) :;PUSH R1 ON STACK 
MOV R2,°(SP) s;PUSH R2 ON STACK 
MOV R3,-(SP) 7;PUSH R3 ON STACK 
MOV R4,-(SP) ;;PUSH R4& ON STACK 
MOV R5,-(SP) :;PUSH RS ON STACK 
MOV #DMD ,ARHMR :SET DIAGNOSTIC MODE 
BIS #MINX,QRHMR ;SET DIAGNOSTIC INDEX 
BIC #MINX,QRHMR sCLEAR DIAGNOSTIC INDEX 
BIS #G0,aRHCS1 :SET 'GO' BIT &@ STALL ‘TILL ‘RUN’ 
; (FUNCTION CODE WAS SET UP BY THE TEST) 
RNWAT1: MOV #75. ,aM@RNCTRI sLOAD STALL COUNTER = APPROX 450US 
sFOR 11/50 CPU 
i$: DEC a#RNCTRI ;COUNT DOWN 1 TIME 
BNE 1$ ; CONTINUE UNTIL = 0 
MOV QMWSECTR,-(SP) ;GET DESIRED SECTOR/TRACK 
BIC #177740, (SP) sMAKE ONLY SECTOR 
MOV (SP)+ ,a#@wIRK ;SAVE SECTOR 
23: JSR R1,a@SEARCH + 1SSUE SECTOR CLOCKS T0 GET T0 
SDESIRED SECTOR <eeeeeeeeeeeeeeceee= > 
WIRK: WORD 0 sSECTOR NO. 


on 


CZRJHDO,RPO4/5/6 DSKLS cms 
CZRIHD.P12 01-MAR-79 09:10 


9802 056106 012701 000240 
9803 056112 010137 056160 
98 056116 010137 056162 
9805 056122 010137 056164 
9 056126 010137 056166 
9807 056132 010137 056170 
sone 056136 010137 056172 
9810 056142 004137 056242 
9811 


9812 056146 000000 


9816 056156 000000 


9821 056160 000240 


9832 056162 000240 


5 
sg 056164 000240 


dD 2 
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DISK SIMULATION SEQ 0223 


MOV #+*NOP RI ;GOING TO MOVE NOPS 
MOV R1,Q#SEGPER ;NOP INTO SEGAP 

MOV R1,Q#FSYNER ;NOP INTO FSYNER 
MOV R1,@#ERHEAD ;NOP INTO ERHEAD 
MOV R1,a#ERCRC ;NOPINTO ERCRC 

MOV R1,a#ERHOGP ;NOP INTO ERHDGAP 
MOV R1,@#HDESYN ;NOP INTO HDESYN 


JSR R1,@#WRHEAD SURI VE THE WERDER qeeeesrensncoreses > 


WCYL: 0 s CYLINDER 

WSECTR: 0 :SECTOR AND TRACK 
WKEY1: 0 KEY! 

WKEY2: 0 pKEY2 
GCRC: 0 ;GOOD CRC 


;DUMMY ERROR CALL LOCATIONS FOR THE WRITE HEADER OPERATION 


SEGPER: NOP ;1F “ERROR 6°’ INSERTED BY 
;WRHEAD SUBROUTINE, THEN 
;SECTOR GAP GOING ON DISK 
71S NOT RIGHT. 


;WORD NO. CONTAINS WHICH 
;WORD IS WRONG, THAT IS 
;FIRST OF TENTH, OR WHAT EVER. 


;BAD WORD IS WHAT IS GOING ON DISK 


;1F “ERROR 6°’ INSERTED BY 
;WRHEAD SUBROUTINE, THEN 

; THE LAST 0 BYTE OF SECTOR 
;GAP OF FIRST SYNC. BYTE 
Jol SECTOR GAP IS IN 


;WORD NO. CONTAINS 20 
RIGHT BYTE 1S SECTOR GAP 
LEFT BYTE IS SYNC. BYTE. 


;BAD WORD IS WHAT IS GOING ON 
DISK 


FSYNER: NOP 


ERHEAD: NOP 
;1F “ERROR 6°’ INSERTED BY 
;WRHEAD SUBROUTINE, THEN 
;HEADER GOING ON DISK 


31S WRONG. 

sWORD NO 1 = CYLINDER NO 
sWORD NO 2 = SECTOR/TRACK 
;WORD NO 3 = KEY) 

sWORD NO 4 = KEY2 


;BAD WORD 1S WHAT IS GOING ON 


a 





CZRJHDO ,RPOS/5/6 DSKLS pls 
01-MAR-79 09:10 


CZRIHD.P12 


056166 


056170 


056172 


056174 
056200 
056202 


056206 
056210 


056226 


000240 


000240 


000240 


005737 
001004 
004137 
000000 
000000 


012605 


000207 


015124 
054376 


MACY11 30A(1052) 


ERCRC: 


ERHDGP: 


HDESYN: 


FNWORD: . 


FOUT: 


24-MAY-79 
DISK SIMULATION 


NOP 


NOP 


NOP 


avERFLGS 
FOUT 
R1,Q#@WRDATA 


0 
0 


(SP)+#,R5 
(SP)+,R4 
(SP)+,R3 
(SP)+*,R2 
(SP)¢,R1 
(SP)+,RO 
PC 


g ¢ 
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: DISK 


;1F “ERROR 
;WRHEAD SUBROUTINE, 


;0N DISK 1S IN ERROR 


6'’ INSERTED BY 


THEN CRC WRITTEN 


;GOOD DATA IS WHAT SHOULD BE ON DISK 
:;BAD DATA IS WHAT IS GOING ON DISK. 


;WORD NO IS 5 


;1F “ERROR 6°’ INSERTED BY 
;WRHEAD SUBROUTINE, 
;GAP GOING ON DISK IS WRONG. 


;WORD NO GIVES WHICH OF 
; THE HEADER GAP WORDS 
; ARE WRONG. 
; WORD NO 1 


Pp 
:BAD WORD 1S WHAT IS GOING ON DISK 


THEN HEADER 


FOR EXAMPLE: 
FIRST HEADER 
GA 


WORD 


;1F “ERROR 6°’ INSERTED BY 
;WRHEAD SUBROUTINE, 
;HEADER GAP BYTE OR HEADER 

;SYNC BYTE GOING ON DISK IS WRONG. 


;WORD NO = 
;BAD DATA IS WHAT IS GOING 


;ON DISK, 


5 


THEN LAST 


RIGHT BYTE IS HEADER 


;GAP O'S BYTE, LEFT BYTE IS HEADER 
;GAP SYNC, 


;ARE ANY ERRORS DETECTED ? 
;1F YES BRANCH 
WRITE THE DATA 


;FORMAT COMMAND NO. OF DATA 


STACK 


P STACK 
P STACK 


STACK 
STACK 


P STACK 


INTO RS 
INTO RG 
INTO R3 
INTO R2 
INTO R1 
INTO RO 


SEQ 0224 


CZRIHDO ,RPO4/5/6 DSKLS psy 
12 Q1-MAR-79 09: 


CZRJHD.P 


056230 


056240 


056242 
056246 
056252 
056256 
056262 
056266 


056270 


056314 
056320 


056360 
056362 


056370 


000000 


001403 
000261 


000241 


056230 


056240 


054630 


000013 
000040 


000001 
000007 
000002 
000040 


MACY11 "arte Sie 
DISK SIMULATION 


24-MAY-79 


, «£ 
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sy eteeeeereererrererererererererererteterereeeeenerenenerereeeeeee 


;*WRITE HEADER 


sp eeeeeeeererreererererererrerererreeererereneeerenererereereeeee 


>. 

* 

r=) 

Nm 
nun ou 


WRHEAD : 


5$: 


Be Be Be oe ee 


:;PUSH R1 ON STACK 


SIMULATED DISK INDICATOR 

;RO NOW HAS MAINT. REG. ADDR. 
;SET DIAG. MODE 

;WORD COUNTER 

;SET SECTOR FOR FIRST BYTE 


MMSTCKIMCLK!DMD,@RO;SET SECTOR, CLOCK, DIAG. 


MAINT.REG. 

SIMULATED DISK 
BYTE COUNT 
WRITE WORD 
WORD COUNT 

0 

0 

0 

0 

0 

MOV (R1)*,aaSCYL 
MOV (R1)+,a@SSECTR 
MOV (R1)+,a@SKEY1 
MOV (R1)+*,Q@M@SKEY2 
MOV (R1)+,a@SCRC 
MOV R1,-(SP) 

MOV #SECGAP,R1 
MOV Q#RHMR, RO 
MOV #DMD ,aRO 
MOV #2.R 

BIS #MSTCK,aRO 
MOV 

BIT #MWR,aRO 
BEQ 2$ 

SEC 

ROR R3 

BR 3$ 

CLC 

ROR R3 

MOV #0MD ,aRO 
MOV #7,R2 

BIS #MCLK ,aRO 
BIT #MWR,aRO 
BEQ 5$ 

SEC 

ROR R3 

BR o$ 

CLC 


;MODE, RESET INDEX 
;CHECK WRITE BIT IN MAINT, REG. 


;SET CARR 
;MOVE ONE "FORWARD 


SCLEAR CARRY 

;MOVE ZERO FORWARD 

;CLEAR CLOCK, SECTOR 

;BYTE COUNTER 

;SET BIT CLOCK 

CHECK WRITE BIT IN MAINT.REG. 
;BRANCH IF ZERO 


SET CARRY 
MOVE ONE FORWARD 


a ’ 


SEQ 0225 


G 2 
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CZRJHD.P12 01-MAR-79 09:10 DISK SIMULATION SEQ 0226 
9968 056372 006003 ROR R3 
9969 056374 012710 000001 6$: MOV #DMD ,aRO 
9970 056400 005302 DEC R2 
9971 056402 001362 BNE 4$ 
9972 056404 005305 DEC R5 
9973 056406 001342 BNE 1$ 
9974 056410 010321 MOV R3,(R1)+ 
9975 056412 005703 TST R3 
oars 056414 001414 BEQ 7$ 
9978 056416 012737 000001 053130 MOV #1 ,a#ERWORD 
9979 056424 005037 001124 CLR a#$GDDAT 
9980 056430 010337 001126 MOV R3,a#SBDDAT 
9981 056434 012737 104006 056160 MOV #104006 ,a#SEGPER 
raat 056442 000137 057050 JMP ani7s SBRANCH OUT ooecoeeoocceccesooccece > 
9984 056446 012702 000022 7$: MOV #18.,R2 ;COUNT NO. OF SECTOR GAP 
9985 056452 012737 000024 053130 10%: MOV #20.,aMERWORD ;COUNT TO GIVE ERROR WORD 
9986 056460 004737 054156 JSR PC ,a#WRITE ;WRITE SECTOR GAP 
9987 056464 013721 054154 MOV Q#WWORD,(R1)*  ;STORE SECTOR GAP WORD 
9988 056470 001413 BEQ 11$ 
9989 056472 160237 053130 SUB R2,a#ERWORD ;1f NOT GET ERROR WORD NO. 
9990 056476 005037 001124 CLR a#$GDDAT ;GOO0D WORD 
9991 056502 013737 054154 001126 MOV a#WWORD ,A#SBDDAT;BAD WORD 
9992 056510 012737 104006 056160 MOV #104006 ,a#SEGPER; STORE ‘‘ERROR 6°' IN SEGPER 
9993 056516 000554 BR 17$ ;BRANCH OUT 
9994 056520 005302 118: DEC R2 ;HAVE 18 WORDS OF ZEROS BEEN WRITTEN ? 
ad 056522 001353 BNE 10$ ;1f NOT CONTINUE 
9997 ;AT THIS POINT THE SECTOR FOUND FLOP SHOULD 
9998 ;BE HIGH, SO THAT THE HEADER SYNC BYTE CAN BE GIVEN. 
10000 ;HOWEVER, IN THE DRIVE TIMING ERROR TEST THE REST OF THE ROUTINE 
Hy oed! :1S ABORTED 
10003 056524 005737 015144 TST a#TESDTE 71S THIS A DRIVE TIMING ERROR TEST ? 
‘ooee 056530 001147 BNE 17% ;0RamCe Gul LF VES coceeeeenecsneesess > 
10006 056532 004737 054156 JSR PC ,a#WRITE ;WRITE ONE SECTOR GAP 0 BYTE 
10007 ;AND ONE SYNC. BYTE = 230 
10008 056536 013711 054154 MOV O#WWORD,<(R1) ;SAVE 0 BYTE AND SYNC BYTE 
10009 056542 023721 053112 CMP Q@#RSYNC,(R1)* [51F SYNC. BYTE RIGHT 
10010 056546 001414 BEQ 12% ;1F YES CONTINUE OPERATION 
++ 44 056550 012737 000024 053130 MOV 620.,a#ERWORD ;1F NOT GET READY FOR ERROR PRINT 
10013 056556 013737 053112 001124 MOV Q#RSYNC ,A#SGDDAT; GOOD WORD 
10014 056564 014137 001126 MOV -(R1),a#@$BDDAT ;BAD WORD 
10015 056570 012737 104006 056162 MOV #104006 ,a#FSYNER; INSERT "‘ERROR 6°° IN FSYNER 
me 056576 000524 BR 17% SBRANCR GYT coceesccconccncesnsesesne > 
1 
10018 056600 012702 000004 128: MOV #4 ,R2 ;FOUR HEADER WORDS 
10019 056604 012703 056250 MOV #SCYL,RS ;POINTER FOR HEADER TABLE 
10020 056610 012737 000005 0531350 13%: MOV #5 ,A#ERWORD ;ERROR WORD NO SET 
10021 056616 004757 054156 JSR PC ,a#WRITE WRITE 4 HEADER WORDS 
10022 056622 013711 054154 MOV a#wWWORD,(R1) STORE WRITTEN WORD 
10023 056626 022521 CMP (R3)+,(R1)¢ ;1S 17 CORRECT ? 
| 
setnepainiial 


CZRJIHDO ,RPOS/5/6 DSKLS CTRLR2 
01-MAR-79 09:10 


CZRIHD.P12 


056630 


056632 
056636 
056642 
056646 
056654 


056656 


056676 


056700 


056726 


056730 
056734 
056742 
056746 
056752 


056754 


056776 
057000 


057014 
057020 


057022 
057030 
057034 
057042 


057050 
057050 
057052 


001412 


000424 
005302 


053130 


104006 


054156 
054154 
056156 


001126 
056156 
000005 
104006 


000005 
000006 
054156 
054154 


053130 
001124 
001126 
104006 


054156 
054154 
053112 


000005 


104006 


MACY11 


056164 


001124 
053130 
056166 


053130 


056170 


053150 


001124 
056172 


30A(1052) 24-MAY-79 
DISK SIMULATION 
BEQ 14% :1f GOOD CONTINUE OPERATION 
s1f NOT GET READY FOR ERROR PRINT 
SUB R2,a#ERWORD ;WORD NO 
MOV -(R3),a#$GDDAT ;GOOD DATA 
MOV -(R1),a@$BDDAT ; DATA 
MOV #104006, ,a#ERHEAD; INSERT ‘‘ERROR 6°° 
BR 17% SBRANCH OUT econ ooeeeeooeeoeccoceccce 
148: DEC R2 yARE 4 qt WORDS DONE? 
BNE 13% ;1f NOT CONTINE 
JSR PC ,a#WRITE WRITE CRC 
MOV a#wwORD,(R1) STORE CRC 
CMP (R1)+,aaGCRC ;COMPARE GOOD CRC 
BEQ 20% :1F GOOD CONTINUE OPERATION 
s1F NOT GET READY FOR ERROR PRINT 
MOV -(R1),Q#S$BDDATA ;BAD CRC WRITTEN 
MOV Q#GCRC ,A#$GDDAT ;GOOD CRC 
MOV #5, a#ERWORD sERROR WORD NO 
MOV #104006 ,aMERCRC ; INSERT ERROR 6 
BR 178 TEX] T eeeeennn nanan anne nennen nnn nnn- 
208: MOV #5,R2 sNO OF HEADER GAP 
15$: MOV #6 ,Aa#MERWORD sERROR WORD NO SET 
JSR PC, ,a#WRITE sWRITE HEADER GAP 
MOV Q#WWORD,(R1)+ s STORE 
BEQ 16% :1f GOOD CONTINUE OPERATION 
s1F NOT GET READY FOR PRINT 
$uB R2,a#ERWORD sERROR WORD NO 
CLR a#$GDDAT 3;GOOD DATA 
MOV -(R1),a#$BDDAT ;BAD DATA 
MOV #104006 ,a#ERHDGP; STORE ‘ERROR 6°' 
BR 17% SBRANCH OUT ereeoeseeseeeeesoeces= 
168: DEC R2 ;ARE 5 HEADER GAP ZEROS DONE ? 
BNE 15$ :1F NOT CONTINUE 
JSR PC ,a@WRITE 
MOV a#wWwORD,(R1) 
CMP QMRSYNC,(R1)+ 
BEQ 178 LEX] T 2eeeenennennnnnnnneee 
mov #5, a#ERWORD :1F NOT GET READY FOR ERROR PRINT 
MOV -(R1),a#$BDDAT 
MOV @#RSYNC ,A#$GDDAT 
MOV #104006 ,a#HDESYN 
17$: 
MOV (SP)¢,R1 +; POP STACK INTO R1 
RTS RI TEX] ] eeeeennneen nnn nennnnnee-e- 


H 2 
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SEQ 0227 
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10080 
10081 
10082 


J 2 
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CZRJHD. P12 01-MAR-79 09:10 DISK SIMULATION SEQ 0229 
10083 peaeeererereeerererererrereeeerrrerettereerteneeeeeeneereererete 
10084 : SEARCH SECTOR 
10085 peeererreereereeererrereerereeeteeteeereneteneerereeerereereres 
10086 
10087 
10088 
10089 
10090 
10091 
10092 3f RO=RHMR ADDRESS 
10093 ;* R1=PASSED ARGUMENT (SECTOR SEARCHED FOR) 

10094 7° R2=CLOCK COUNT (PER BYTE) 

10095 7° R3=SECTOR COUNTER FROM R1 

ener 3° RS=BYTES PER WORD COUNT 

10098 ;*BEFORE INDEX 1S GIVEN TWO hte CLOCKS ARE GIVEN TO RESET 
eras s*SECTOR PULSE IN CASE IT IS SET 

10101 s*AT THE BEGINNING OF EACH SECTOR, ONE SECTOR CLOCK HAS TO RISE 
10102 :*BEFORE MAINT. CLOCK, THEN EVERY EIGHT MAINT.CLOCKS, ONE SECTOR CLOCK 
10103 s*]S IDENTICAL WITH THE MAINT. CLOCK 

Hd s*THE SECTOR CLOCKS ARE NUMBERED AS FOLLOWS: 

10106 :*THE SECTOR CLOCK UNDER INDEX - 0 

10107 s*THE NEXT - 1 

10108 3*THE NEXT = 2 

10109 s*ETC. 

10110 :*THEN THE LAST SECTOR CLOCK IN ONE SECTOR HAS NUMBER - 608 
10111 :*THE NEXT SECTOR WILL HAVE 608 SECTOR CLOCKS 

10112 :*THE NEXT SECTOR THEN HAS ANOTHER 608 SECTOR CLOCKS 

10113 ;*AND SO ON 

10114 

10115 
10116 
+ 4th 057054 000000 SECTR: 0O sSECTOR SEARCHED FOR 
10119 057056 012137 057054 SEARCH: MOV (R1)+,aMSECTR ups SECTOR yrtry FOR 
10120 057062 010046 MOV RO,-(SP) PUSH RO ON STAC 
10121 057064 010146 MOV R1,-(SP) PUSH R1 ON eTACK 
10122 057066 010246 MOV R2,-(SP) 3;PUSH R2 ON STACK 
10123 057070 010346 MOV R3,-(SP) ::PUSH R3 ON STACK 
10124 057072 010446 MOV R4,-(SP) s;PUSH R4& ON STACK 
10125 057074 010546 MOV R5,-<SP) >;PUSH RS ON STACK 
10126 057076 013700 014776 MOV a#RHMR, RO sNOW RO HAS MAINTENANCE REG. ADR. 
+ +4 $4 057102 013703 057054 MOV a#SECTR,RS ;LOAD SECTOR COUNTER 
10129 057106 012710 000001 MOV #DMD ,aRO ;SET DIAGNOSTIC MODE 
10130 057112 052710 000010 BIS WMSTCK, aRO ;SET SECTOR CLOCK 
10131 057116 042710 000010 BIC #MSTCK, a@RO sCLEAR SECTOR CLOCK 
10132 057122 052710 000010 BIS @MSTCK, aRO ;SET SECTOR CLOCK 
10133 057126 042710 000010 BIC #MSTCK, @RO ;CLEAR SECTOR CLOCK 
10134 ;THE ABOVE TWO SECTOR CLOCKS ARE GIVEN FOR 
10135 sRESETING SECTOR PULSE 
10136 s1N CASE IT STARTS SET 
10137 057132 052710 000014 BIS @MINX'MSTCK ,@RO > SET INDEX AND SECTOR CLOCK 
10138 057136 042710 000014 BIC #MINKX'MSTCK,aRO RESET INDEX AND SECTOR CLOCK 


K 2 
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CZRJHD. Pl2 01-MAR-79 09:10 DISK SIMULATION SEQ 0230 
10139 057142 005703 TST R3 s TEST FOR SECTOR 0 

ioiet 057144 001461 BEQ 7$ ;1F SECTOR 0 IS REQUIRED, EXIT ------ > 
loves sNOW 304 WORDS WILL START (608 BYTES) 

10144 s*FOR FIRST BYTE MAINT. SECTOR CLOCK WILL GO HIGH, THEN MAINT. CLOCK WILL GO HIGH 
10145 : *BOTH WILL COME DOWN TOGETHER, THEN SEVEN MAINT. CLOCKS WILL BE GIVEN 
10146 s*FOR SECOND BYTE, AND ALL OTHER BYTES TILL NEXT SECTOR, SECTOR CLOCK 
4 der s*WILL BE IDENTICAL WITH ONE MAINT. CLOCK 

3 

10149 

aaaet ONE WORD ONLY 

10152 057146 012702 000010 1$: MOV #8., R2 sBYTE COUNTER 

16153 057152 ¢12705 000002 MOV #2, RS sBYTES PER WORD 

10154 057156 052710 000010 BIS #MSTCK, aro ;SET SECTOR gts 

10185 057162 052710 000002 BIS #MACLK, aro 3SET MAINT. CLOCK 

1015S 057166 000402 BR 3$ : BRANCH TO CLEAR SECTOR AND CLOCK 
10157 057170 052710 000012 2s: BIS MMSTCK'MCLK,@RO ;SET BOTH CLOCKS 

10158 057174 042710 000012 3$: BIC #MSTCK'MCLK,@RO = CLEAR BOTH CLOCKS 

10159 057200 052719 000002 8$: BIS #MCLK,aRO :SET MAINT. CLOCK 

10160 057204 042710 000002 BIC #MCLK,aRO ;CLEAR MAINT. CLOCK 

10161 057210 005302 DEC R2 sBYTE COUNTER 

sb 057212 001372 BNE 8% sCONTINUE IF BYTE NOT COMPLETE 

10164 057214 012702 000007 MOV #7,R2 sSETUP FOR SECOND BYTE 

10165 057220 005305 DEC RS :1S WORD COMPLETE? 

10166 057222 001362 BNE 2$ sCONTINUE IF NOT COMPLETE 

10167 :10 GIVE SECTOR CLOCK AND MAINT. CLOCK 
10168 

10169 

+ 444 sNOW 303 WORDS ARE LEFT AND ALL ARE IDENTICAL 

10172 057224 012701 000457 MOV #303.,R1 sWORDS PER SECTOR COUNTER 

10173 057230 012705 000002 4$: MOV #2,R5 :BYTES PER WORD COUNTER 

10174 057234 012702 000007 5$: MOV #7,R2 sBI1T COUNTER (MAINT.CLOCK COUNTER) 
10175 057240 052710 000012 BIS WMSTCK'MCLK,@RO ;SET SECTOR CLOCK AND MAINT. CLOCK 
10176 057244 042710 000012 BIC WMMASTCK'MCLK,@RO ;CLEAR CLOCKS 

10177 057250 052710 000002 6$: BIS #MCLK,aRO :SET MAINT. CLOCK 

10178 057254 042710 000002 BIC #MCLK,aRO sRESET MAINT. CLOCK 

10179 057260 005302 DEC R2 31S BYTE COMPLETE ? 

+44 94 057262 001372 BNE 6$ : CONT INUE If NOT COMPLETE 

10182 057264 005305 DEC R5 :1S WORD COMPLETE ? 

dy a 057266 001362 BNE 5$ sCONTINUE IF NOT 

10185 057270 005301 DEC R1 31S SECTOR COMPLETE ? 

4 057272 001356 BNE 4$ ;CONTINUE IF NOT 

10188 057274 052710 000010 BIS #MSTCK,aRO :SET SECTOR CLOCK 1 MORE TIME (FOR 609) 
10189 057300 042710 000010 BIC #MSTCK,aRO sCLEAR SECTOR CLOCK 

10190 057304 005303 DEC R3 :1S REQUIRED NO OF SECTORS COMPLETE ? 
+ +44 057306 001317 BNE 1$ sCONTINUE IF NOT 

1 

10193 057310 7$: 

10194 057310 012605 MOV (SP)+,R5 :;POP STACK INTO R5 
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CZRIHD.P12 01-MAR-79 09:1 DISK SIMULATION SEQ 0231 
10195 057312 012604 MOV (SP)+,R4 3;POP STACK INTO R4 
10196 057314 012605 MOV (SP)+,R3 3;POP STACK INTO R3 
10197 057316 012602 MOV (SP)+,R2 3;POP STACK INTO R2 
10198 057320 012601 MOV (SP)+,R1 3;POP STACK INTO RI “ 
10199 057322 012600 MOV (SP)+,RO0 7:POP STACK INTO RO 
10200 057324 000201 RTS R1 
10201 
10202 
10203 ppeeeeeerererereeerereeerererereerererereeeeeeeeeeeReeeKeneeTeee 
;*READ ONE SECTOR OF DATA 
10205 ppeteeeenrererererereerereeeseererererereeeeeeeeeeeeTenereeneeee 
10206 
10207 057326 000000 RNO: 0 3NO. OF WORDS READ 
10208 057330 000000 RCOM: 0 sEXTRA STORAGE 
10209 
ist 
10212 057332 012137 057326 REDATA: MOV (R1)+,a@RNO ;SAVE NO. OF WORDS ONLY FOR INFORMATION 
10213 057336 012137 057330 MOV (R1)+,a#RCOM sEXTRA WORD ONLY FOR INFORMATION 
10214 057342 010146 MOV R1,-(SP) >;PUSH R1 ON STACK 
10215 057344 005737 015142 TST a#TSECc 31S THIS AN ECC TEST 
10216 057350 001403 BEQ 1$ ;BRANCH IF NO 
10217 057352 012737 177777 050624 MOV #-1,a#TSECCG ; THESE BITS ARE TO GENERATE ECC 
10218 057360 012702 000402 1$: MOV #258.,R2 3256 WORDS PER SECTOR 
10219 sPLUS 2 ECC WORDS 
10220 057364 012703 054726 MOV #DISK,R3 ;POINTE TO DISK SIMULATION 
10221 057370 01233 053720 2s: MOV (R3)+,a#WORD ;READY 10 READ CONTENTS 
10222 057374 004737 053724 JSR PC, a#READ READ 
10223 057400 005302 DEC R2 18 256 worDS DONE ? 
10224 057402 001372 BNE 2$ 1 NOT BRANCH 
10225 057404 005737 015142 TST av TSECc Z1S THIS AN ECC TEST 
10226 057410 001012 BNE 4$ ;BRANCH OUT IF YES 
10227 057412 005037 050624 CLR a#TSECCG :NO MORE ECC BITS ARE TO BE GENERATED 
10228 057416 012702 000017 MOV #15.,R2 ;ONE DATA GAP, 14 TOLERANCE GAP 
10229 057422 012337 053720 38: MOV (R3)+,a#WORD sREADY TO READ CONTENTS OF WORD 
10230 057426 004737 053724 JSR PC ,a#READ READ 
10231 057432 005302 DEC R2 ; COUNT 
10232 057434 001372 BNE 3$ ;BRANCH IF 14 NOT DONE 
10233 057436 4$: 
10234 057436 012601 MOV (SP)+,R1 :;POP STACK INTO RI 
10235 057440 000201 RTS R1 RETURN 
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057442 
057442 
057446 


057516 
057516 
057520 
057526 


104401 


000423 


057450 


104402 
012777 057442 


000000 
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DISK SIMULATION 


si eteteeereerererrererrerererrrererertererereererereerereneneeeeeee 


RPVECT: 


TYPE 65% ii TYPE ASCIZ STRING 
BR 64% GET OVER THE ASCIZ 
2 aa -ASCIZ /UNEXPECTED RP0G INTERRUPT FROM PC = / 
64$: 
TYPOC s TYPE FROM PC 
MOV @RPVECT,A@RPVEC sRESTORE TRAP RPO4 VECTOR 


HALT CHANGE TO CONTINUE 


sie eeeeererererererererereterenererereeeeneReeeeeeeAReseeeTeReeee 


SEQ 0252 
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057530 


057542 


057546 


057560 
057562 
057564 


057656 
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104407 
005037 
005037 


005037 


005037 


032777 
001111 


000416 
013746 


09: 


53124 
15142 


050624 


015144 
040000 


000004 
000004 
000004 


000400 
121304 
001103 
001115 
001000 
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121312 
001102 
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121254 


~SBTTL 
~SBTTL 
~SBTTL 
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#eeSYSMAC LIBRARY ROUTINES*** 


-SBTTL SCOPE HANDLER ROUTINE 


peeereereerereerererererereererereereeeeetereereeereeeeeenereeese 
SSTHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
7*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
>*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 

:*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


LOOP ON 


N TEST 
INHIBIT ITERATIONS 


LOOP ON ERROR 


LOOP ON TEST IN SWR<7:0> 
;;SCOPE=101 


Oa#NOSYNC 
aa TSECC 


a#TSECCG 


ae TESDTE 
#BIT14,aSwR 
$OVE 


7: TEST FOR CHANGE IN SOFT-SWR 

;CLEAR FLAG FOR HEADER ERROR COMMANDS 
;CLEAR FLAG FOR ECC TEST 

WHEN =177777 IT IS AN ECC TEST 

;WHEN =O IT 1S NOT AN ECC TEST 


sEVEN IN AN ECC TEST EVERY CLOCK 
31S NOT TO GENERATE ECC 
:1F =177777 GENERATE ECC 

;1f =0 DO NOT GENERATE ECC 
:DRIVE TIMING ERROR TEST 


: s LOOP ON PRESENT TEST? 
sYES IF Swi4=1 ' 


BNE OVER 
nag iy OF = FOR THE XOR TESTER#MMMM 


*SWi4=1 

:*Swil=1 

3*Sw09=1 

3*Sw08=1 

* CALL 

7* SCOPE 

SSCOPE: 
CKSWR 
CLR 
CLR 
CLR 
CLR 

1$: 

1$: BIT 

$XTSTR: BR 
MOV 
MOV 
TST 
MOV 
BR 

5$: CMP 
MOV 
BR 

6$:;#MMHHEND OF 
BIT 

EQ 

CMPB 
BEQ 

2$: TS1B 
BEQ 
CMPB 
BHI 
BIT 


Q@#ERRVEC,-(SP) 
#5$ ,aMERRVEC 
a#177060 

(SP)+ ,@#ERRVEC 
$SVLAD 
(SP)+,(SP)+ 
(SP)+ ,@#ERRVEC 


3:1 RUNNING ON THE “‘XOR"’ TESTER CHANGE 
3: THIS INSTRUCTION TO A ‘'NOP’’ (NOP=240) 
7;SAVE THE CONTENTS OF THE ERROR VECTOR 


OR? 
: TRESTORE THE oo VECTOR 
3;G0 TO THE NEX7 TEST 
;;CLEAR THE STACK AFTER A TIME OUI 
¢ RESTORE THE ERROR VECTOR 
LOOP ON THE PRESENT TEST 


7$ 
CODE FOR THE XOR TESTERMMMHA 


#81108 ,aSwR 

2$ 
OSWR,STSTNM 
SOVER 

$ERFLG 

3$ 
aes 
#B1109,aSwWR 


b :LOOP ON SPEC. TEST? 
HON TNE RIGHT TE 12 SWR<7:0> 
: MAS AN ERROR OCCURRED? 
“BR IF NO 
ZUMAK, ERRORS FOR THIS TEST OCCURRED? 


:BR IF 
::LOOP ON ERROR? 





SEQ 0233 
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CZRIHD.P12 01-MAR-79 09:10 SCOPE HANDLER ROUTINE SEQ 0234 
10303 057664 001404 BEQ ah ;:BR IF NO 
0 057666 013737 001110 001106 7%: MOV SLPERR,.SLPADR ;;SET LOOP ADDRESS TO LAST SCOPE 
10305 057674 s BR SOVER 
10306 057676 105037 001103 4%: CLRB SERFLG 3; ZERO THE ERROR FLAG 
10307 057702 005037 001212 CLR STIMES ;;CLEAR THE NUMBER OF ITERATIONS TO MAKE 
10308 057706 000415 BR 1$ ;;ESCAPE TO THE NEXT TEST 
10309 057710 032777 004000 121222 3%: BIT #BIT11,aSwRr ++ INHIBIT ITERATIONS? 
10310 057716 001011 BNE 1$ ;BR IF YES 
10311 057720 005737 001100 TST SPASS it FIRST PASS OF PROGRAM 
10312 057724 001406 BEQ 1$ INHIBIT A Lal Sa 
10313 057726 005237 001104 INC SICNT SINCREMENT ITERATION COUN 
10314 057732 3737 001212 001104 CMP STIMES,SICNT ICHECK THE NUMBER OF ITERATIONS MADE 
10315 057740 002021 BGE SOVER 7;BR IF MORE ITERATION REQUIRED 
10316 057742 012737 000001 001104 1$: MOV #1,S$1CNT ; ;REINITIALIZE THE ITERATION COUNTER 
10317 057750 013737 060020 001212 MOV SMXCNT,STIMES  ;;SET NUMBER OF ITERATIONS TO DO 
10318 057756 105237 001102 $SVLAD: INCB STSTNM ;;COUNT TEST NUMBERS 
10319 057762 011637 001106 MOV (SP), SLPADR ;;SAVE SCOPE LOOP ADDRESS 
10320 057766 011637 001110 MOV (SP) ,SLPERR ;;SAVE ERROR LOOP ADDRESS 
10321 057772 005037 001214 CLR SESCAPE ;;CLEAR THE ESCAPE FROM ERROR ADDRESS 
10322 057776 112737 000001 001115 MOVB #1, SERMAX ;;ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
10323 060006 013777 001102 121130 SOVER: MOV STSTNM,QDISPLAY ;;DISPLAY TEST NUMBER 
10324 060012 013716 001106 MOV SLPADR, (SP) ;;FUDGE RETURN ADDRESS 
10325 060016 000002 RT1 tc FIXES PS 


10326 060020 000004 SMXCNT: 4 ;;MAX. NUMBER OF ITERATIONS 


on 


C 
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10 CONVERT BINARY TO DECIMAL AND TYPe ROUTINE 


CZRIHD.P12 01-MAR-79 09: SEQ 0255 


ts 34 -SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

10329 pp eeeeeeeereeerereererereeererereeerereeeerereeneretenerereeeeeet 
10330 s*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER [0 A 5-DIGIT 
10331 s*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
10332 s*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
10333 ;*BEFORE THE FIRST DIGIT OF T NUMBER. LEADING ZEROS WILL ALWAYS BE 
10334 ;*REPLACED WITH SPACES. 

10335 s*CALL: 

10336 3° MOV NUM, -(SP) 7;PUT THE BINARY NUMBER ON THE STACK 
10337 3f TYPDS 3:G0 TO THE ROUTINE 

10338 

10339 060022 $STYPDS: 

10340 060022 010046 MOV RO,-(SP) >;PUSH RO ON STACK 

10341 060024 010146 MOV R1,-(SP) 3;PUSH R1 ON STACK 

10342 060026 010246 MOV R2,-(SP) 3;PUSH R2 ON STACK 

10343 060030 010346 MOV i 7:PUSH R3 ON STACK 

10344 060032 010546 MOV R5,°(S 3;PUShH RS ON STACK 

10345 060034 012746 020200 MOV 136200, sp) 3:;SET BLANK SWITCH AND SIGN 

10346 060040 016605 000020 MOV 20(SP) ,R5 3:;GET THE INPUT NUMBER 

10347 060044 100004 BPL 1$ 3;BR IF INPUT IS POS. 

10348 060046 005405 NEG R5 > ;MAKE THE BINARY NUMBER POS. 

10349 060050 112766 000055 000001 MOVB #'=,10SP) 7: MAKE THE ASCI1] NUMBER NEG. 

10350 060056 005000 1$: CLR RO 3;ZERO THE CONSTANTS INDEX 

10351 060060 012703 060236 MOV #SDBLK R53 7;SETUP THE OUTPUT POINTER 

10352 060064 112723 0C0040 MOVB #' ,(R3)¢ :;SET THE FIRST CHARACTER TO A BLANK 
10353 060070 005002 23: CLR R2 3; CLEAR THE BCD NUMBER 

10354 060072 016001 060226 MOV SDTBL(RO),R1 3;GET THE CONSTANT 

10355 060076 160105 3$: SUB R1,R5 :;FORM THIS BCD DIGIT 

10356 060100 002402 BLT 4$ 3:BR IF DONE 

10357 06010 005202 INC R2 >; INCREASE THE BCD DIGIT BY 1 

10358 060104 000774 BR 3$ 

10359 060106 060105 4$: ADD R1,R5 :;ADD BACK THE CONSTANT 

10360 060110 005702 TST R2 7; CHECK IF BCD DIGIT=0 

10361 060112 001002 BNE 5$ ;;FALL THROUGH IF 0 

10362 060114 105716 TSTB (SP) s:STILL DOING LEADING 0'S? 

10363 060116 100407 BM] 7$ 3;BR IF YES 

10364 060120 106316 5$: ASLB (SP) 33MSD? 

10365 060122 103003 BCC $ 3:BR IF NO 

10366 060124 116663 000001 177777 MOVB 1(SP),-1¢R3) sr YES--SET THE SIGN 

10367 060132 052702 000060 o$: BIS #'0,R2 7;MAKE THE BCD DIGIT ASCII 

10368 060136 052702 000040 7$: BIS #" ,R2 s;MAKE IT A SPACE IF NOT ALREADY A DIGIT 
10369 060142 110223 MOVB R2,(R3)+ :;PUT THIS CHARACTER IN THE OUTPUT BUFFER 
10370 060144 005720 TST (RO)+ 3; JUST INCREMENTING 

10371 060146 020027 000010 CMP RO,#10 3: CHECK THE TABLE INDEX 

10372 060152 002746 BLT 23 3:60 DO THE NEXT DIGIT 

10373 060154 003002 BGT 8$ 3:60 TO EXIT 

10374 060156 010502 MOV R5,R2 7:GFT THE LSD 

10375 060160 000764 BR 6$ 3:G0 CHANGE TO ASCII 

10376 060162 105726 8$: TSTB (SP) + 2 WAS THE LSD THE FIRST NON-ZERO? 
10377 060164 100003 BPL 9$ :BR IF NO 

10378 060166 116663 177777 177776 MOVB -1(SP),-20(R3) TI YES=-SET THE SIGN FOR TYPING 

10379 060174 105013 9$: CLRB (R3) 3;SET THE TERMINATOR 

10380 060176 012605 MOV (SP)4+,R5 :;POP STACK INTO RS 

10381 060200 012605 MOV (SP)+,R3 :;POP STACK INTO R3 

10382 060202 012692 MOV (SP)+*,R2 :;POP STACK INTO R2 
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060204 


060234 
060236 
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012601 


000004 


060236 
000002 000004 
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SDTBL: 


$DBLK: 
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CONVERT BINARY TO DECIMAL AND TYPe ROUTINE SEQ 0256 


MOV (SP)¢#,R1 
MOV (SP)+,R0 
TYPE , SOBLK 
MOV 2(SP),4(SP) 
MOV (SP)+, (SP) 
RTI 

19000. 

1000 

100. 

10. 

-BLKW 4 


;;POP STACK INTO RI 
;;POP STACK INTO RO 
;;NOW TYPE THE NUMBER 
>; ADJUST THE STACK 


; RETURN TO USER 


Eee EEE ee 


. 
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CZRIHD.P12 01=-MAR-79 09:10 TYPE ROUTINE SEQ 0237 
10394 -SBTTL TYPE ROUTINE 

10395 

10396 ppeererereerreerererereneerertererererereeeetereerererererererees 

10397 = *ROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
10398 i ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
10399 *NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
10400 « eNOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
Moy 4 : *NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 

10403 3 ®CAL 

10404 set) “USING A TRAP INSTRUCTION 

10405 TYPE »MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
10406 :+0R 

10407 : TYPE 

10408 a MESADR 

10409 3 

10410 

10411 060246 105737 001157 $TYPE: TSTB STPFLG si1S THERE A TERMINAL? 

10412 060252 100002 BPL 1$ ;;BR IF YES 

10413 060254 000000 HALT srHALT HERE IF NO TERMINAL 

10414 060256 000407 RR 3$ LEAVE 

10415 060260 010046 1$: MOV RO,-(SP) att RO 

10416 060262 017600 000002 MOV a2 (SP) ,RO :GET ADDRESS OF ASCIZ STRING 

10417 060266 112046 2s: MOVB (RO)+,-(SP) sPUSH CHARACTER TO BE TYPED ONTO STACK ' 
10418 060270 001005 BNE 4% TBR IF IT ISN'T THE TERMINATOR 

10419 060272 005726 TST (SP)¢ >; 1f TERMINATOR POP IT OFF THE STACK 
10420 060274 012600 60$: MOV (SP)+,RO : ;RESTORE RO 

10421 060276 062716 000002 3$: ADD #2, (SP) >; ADJUST RETURN PC 

10422 060302 000002 RT1 33 URN 

10423 060304 122716 000011 4$: CMPB WHT, (SP) ;;BRANCH IF <HT> 

10424 060310 001430 BEQ 8$ 

10425 060312 122716 000200 CMPB MCRLF, (SP) 3; BRANCH IF NOT <CRLF> 

10426 060316 001006 . BNE 5$ 

10427 060320 005726 TST (SP)+ ::POP <CR><LF> EQUIV 

10428 060322 104401 TYPE >: TYPE A CR AND LF 

10429 060324 001223 SCRLF 

10430 060326 105037 060462 CLRB SCHARCNT :; CLEAR CHARACTER COUNT 

10431 060332 000755 ge 23 ::GET NEXT CHARACTER 

10432 060334 004737 060416 5$: JSR PC, STYPEC 3;GO0 TYPE THIS CHARACTER 

10433 060340 123726 001156 6$: CMPB SFILLC,(SP)¢ sr1S 17 TIME FOR FILLER CHARS.? 

10434 060344 001350 BNE 2$ s:1f NO GO GET NEXT CHAR, 


10436 >7;AND THE NULL CHAR. 

10437 060352 105366 000001 7$: DECB 1(SP) ;:DOES A NULL NEED TO BE TYPED? 

10438 060356 002770 BLT 6$ ::BR IF NO--GO POP THE NULL OFF OF STACK 
10439 060360 004737 060416 JSR PC, ,STYPEC ::G0 TYPE A NULL 

10440 060364 105337 060462 DECB SCHARCNT :;00 NOT COUNT AS A COUNT 

10441 060370 000770 BR 7$ >;LOOP 


10445 ;HOR]ZONTAL TAB PROCESSOR 


10445 060372 112716 000040 8$: MOVB e° , (SP) ;;REPLACE TAB WITH SPACE 
04737 060416 9$: JSR PC, STYPEC i; TYPE A SPACE 

32737 000007 060462 BITB #7, SCHARCNT Hy s 1f NOT AT 
01372 B 9% 
05726 


TOP 
10449 060412 TS] ($P)¢ ;;POP SPACE OFF STACK 





10435 060346 013746 001154 MOV $SNULL ,~ (SP) 3;GET # OF FILLER CHARS. NEEDED 
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000724 
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09: 


120526 
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000015 


060462 
000012 
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TYPE ROUTINE 


120520 
000002 


000002 


$TYPEC: 


1$: 


l 
SCHARCNT: 


STYPEX: 


24-MAY-79 


NCB 
. WORD 
RTS 


23 

asTPs 
STYPEC 
2(SP),asSTPB 
—? 


$CHARCNT 
STYPEX 
#LF,20SP) 
STYPEX 
(PC)+ 

0 

PC 


i. 
15:07 PAGE 240 


7;GET NEXT CHARACTER 
3;WAIT UNTIL PRINTER IS READY 


+s LOAD CHAR TO y TYPED INTO DATA REG. 


;1S CHARACTER A CARRIAGE RETURN? 
: BRANCH IF NO 
+ (ieee CHARACTER COUNT 


S18 CHARACTER A LINE FEED? 
;;BRANCH IF YES 

3; COUNT THE CHARACTER 

>; CHARACTER COUNT STORAGE 


SEQ 0238 
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tinaw. P12 01-MAR-79 09:10 TY INPUT ROUTINE SEQ 0239 
10464 .SBTTL TTY INPUT ROUTINE 

10465 

10466 pp eeereerererrrererereerereerereeerereteneeererereneteeretereeses 

10467 -ENABL LSB 

10468 060466 000000 STKCNT: .WORD 0 : NUMBER OF ITEMS IN QUEUE 

10469 060470 000000 STKQIN: .WORD 0 :; INPUT POINTER 

10470 060472 000000 $TKQOUT: .WORD C ::OUTPUT POINTER 

10471 060474 000011 $TKQSRT: .BLKB 9 3; 1TY KEYBOARD QUEUE 

10472 060505 STKQEND=. 

10473 060506 .EVEN 

10474 

104675 r*TK INITIALIZE ROUTINE 

10476 :*®THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 

+ og A :*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 

10479 >*CALL: 

10480 sf JSR PC, STKINT 

10481 :e RETURN 

10482 : 

10483 060506 005037 060466 $TKINT: CLR STKCNT ::CLEAR COUNT OF ITEMS IN QUEUE 

10484 060512 012737 060474 060470 MOV @STKQSRT,STKQIN ;;MOVE THE STARTING ADDRESS OF THE 

10485 060520 013737 060470 060472 MOV STKQIN, $TKQOUT ; ;QUEUE INTO THE INPUT & OUTPUT POINTERS. 
10486 060526 012737 060556 000060 MOV @STKSRV,QMTKVEC ; > INITIALIZE a KEYBOARD VECTOR 

10487 060534 012737 000200 000062 MOV #200 ,a#TKVEC+2 ;;"’BR'' LEVEL 4 

104688 060542 005777 120400 TST astKB >: CLEAR DONE FLAG 

10489 060546 012777 000100 120370 MOV #100,a$TKS :;ENABLE TTY KEYBOARD INTERRUPT 

1A30 060554 000207 RTS PC ::RETURN TO CALLER 

4 

10492 :*TK SERVICE ROUTINE 

10493 s*TH]S ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 

10494 :*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 

10495 :*]T IN THE QUEUE. 

10496 se]F THE CHARACTER IS A “‘CONTROL=C"’ (*C) STKINT IS CALLED AND 

e097 :*UPON RETURN EXIT IS MADE TO THE ‘'CONTROL=C'’ RESTART ADDRESS (OPERSCL) 
104 

10499 060556 117746 120364 STKSRV: MOVB astKB,-(SP) ::PICKUP THE CHARACTER 

10500 060562 042716 177600 BIC #*°C177, (SP) ::STRIP THE JUNK 

10501 060566 021627 000003 CMP (SP), #3 ::1S8 17 A CONTROL C? 

10502 060572 001007 BNE 1$ : BRANCH IF NO 

10503 060574 104401 061545 TYPE SSCNTLC >: TYPE A CONTROL-C (*C) 

10504 060600 004737 069506 JSR PC, STKINT :: INIT THE KEYBOARD 
10505 060604 005726 TST (SP)¢ ::CLEAN UP STACK 

10506 060606 000137 045036 JMP OPERSEL ; CONTROL C RESTART 

10507 060612 021627 000007 1$: CMP (SP), #7 ::1S 11 A CONTROL G? 

10508 060616 001004 BNE 2$ : ;BRANCH IF NO 

10509 060620 022737 000176 001140 CMP #SWREG, SWR ::1S SOFT=SWR SELECTED? 

19510 060626 001500 BEQ 6$ ::G0 TO SWR CHANGE 

10512 060630 2$: 

10513 060630 022737 000011 060466 CMP #9. STKCNT :r1S THE QUEUE FULL? | 
10514 060636 001004 BNE 3$ > :;BRANCH IF NO 

10515 060640 104401 001216 TYPE »SBELL ::RING THE TTY BELL 

10516 060644 005726 1ST (SP)¢ {CLEAN CHARACTER OFF OF STACK 

10517 060646 000451 BR 5$ EXIT 

10518 060650 021627 000023 3$: CMP (SP) ,#23 51S 1T A CONTROL=S? 
10519 060654 001021 BNE 32% > BRANCH [F NO 
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10520 060656 005077 120262 CLR astKs : DISABLE TTY KEYBOARD INTERRUPTS 
10521 060662 005726 TST (SP)¢ 3;CLEAN CHAR OFF STACK 

10522 060664 105777 120254 318: TS1B astKs +3 WALT FOR A CHAR 

10523 060670 100375 BPL 31$ ;LOOP UNTIL ITS THERE 

10524 060672 117746 120250 MOVB asTKB,-(SP) :3GET THE CHARACTER 

10525 060676 042716 177600 BIC #°C177, (SP) MAKE IT 7-BIT ASCII 

10526 060702 022627 000021 CMP (S$P)+,#21 1318 IT A CONTROL-Q? 

10527 060706 001366 BNE 31$ ;BRANCH IF NO 

10528 060710 012777 000100 120226 MOV #100, ,a$TKS +: REENABLE TTY KEYBOARD INTERRUPTS 
10529 060716 000002 R11 ; ;RETURN 

10530 060720 005237 060466 328: INC STKCNT +: COUNT THIS CHARACTER 

10531 060724 021627 000140 CMP (SP) ,#140 3:18 11 UPPER CASE? 

10532 060730 002405 BLT 4$ :;BRANCH IF YES 

10533 060732 021627 000175 CMP (SP) ,#175 318 IT A SPECIAL CHAR? 

10534 060736 003002 BGT 4$ >: BRANCH IF YES 

10535 060740 042716 000040 BIC #40, (SP) ;;MAKE IT UPPER CASE 

10536 060744 112677 177520 4$: MOVB (355. asTKQIN 7;AND PUT IT IN QUEUE 

10537 060750 005237 060470 INC STKQIN ;; UPDATE THE POINTER 

10538 060754 023727 060470 060505 CMP STKQIN, #$TKQEND +360 OFF THE END? 

10539 060762 001003 BNE 5$ ;BRANCH IF NO 

10540 060764 012737 060474 060470 MOV #STKQSRI,STKQIN > RESET THE POINTER 

eeee 060772 000002 5$: RT] 7 ;RETURN 

10543 ppeeeeererererrerrerererererereretereteetenetereeeeeeerenereeeees 
10544 s*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 

10545 s*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 

10546 s*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 
10547 ;*CALL WHEN OPERATING IN TTY INTERRUPT MODE. 

10548 060774 022737 000176 001140 $CKSWR: CMP #SWREG, SWR s31S THE SOFT=SWR SELECTED 

10549 061002 001124 BNE 15$ srEXIT IF NOT 

10550 061004 105777 120134 TSTB astKs 3:18 A CHAR WAITING? 

10551 061010 100121 BPL 15$ zs: 1F NOT, EXIT 

10552 061012 117746 120130 MOVB asTKB,-(SP) 37 YES 

10553 061016 042716 177600 BIC #*C177, (SP) s;MAKE IT 7-BIT ASCII 

10554 061022 021627 000007 CMP (SP) ,#7 3318 17 A CONTROL -G? 

10555 061026 001300 BNE 23 37 1F NOT, PUT IT IN THE TTY QUEUE 
10556 37 AND EXIT 

10557 

10558 3 -eeeeeeerererereteeeteeeeeeeeeteetereeereteeeteeeeneeeeeeereeete 
10559 > ®CONTROL 1S PASSED TO THIS POINT FROM EJTHER THE TTY INTERRUPT SERVICE 
10560 s*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A 
10561 s*CONTROL-G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 
10562 061030 123727 001134 000001 6$: CMPB SAUTOB,#1 7; ARE WE RUNNING IN AUTO-MODE? 
10563 061036 001674 BEQ 23 ;;BRANCH IF YES 

10564 061040 005726 TST (SP)¢ 7; CLEAR CONTROL=G OFF STACK 

10565 061042 004737 060506 JSR PC, STKINT s;FLUSH THE TTY INPUT QUEUE 

10566 061046 005077 120072 CLR asixs ;:DISABLE TTY KEYBOARD INTERRUPTS 
+ dred 061052 112737 000001 001135 MOVB #1,SINTAG 3;SET INTERRUPT MODE INDICATOR 

6 

10569 061060 104401 061557 TYPE SCNTLG s;ECHO THE CONTROL=G (*G) 

10570 061064 104401 061564 SGTSWR: TYPE . SMSWR :; TYPE CURRENT CONTENTS 

10571 061070 013746 000176 MOV SWREG,=(SP) 3; SAVE SWREG FOR TYPEOUT 

10572 061074 104402 TYPOC 3:G0 TYPE*-OCTAL ASCII(ALL DIGITS) 
10573 061076 104401 061575 TYPE , SMNEW >; PROMPT FOR NEW SWR 

10574 061102 005046 198: CLR (SP) ;; CLEAR COUNTER 

10575 061104 005046 CLR = (SP) 77 THE NEW SWR 
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10576 061106 105777 120032 
10577 061112 100375 
10578 
10579 061114 117746 120026 
Ts 44 061120 042716 177600 
10582 061124 021627 000003 
10583 061130 001015 
10584 061132 104401 061545 
10585 061136 062706 000006 
10586 061142 123727 001135 
10587 061150 001003 
10588 061152 012777 000100 
10589 061160 000137 045036 
10590 
10591 
10592 061164 021627 000025 
10593 061170 001005 
10594 061172 104401 061552 
10595 061176 062706 900006 
10596 061202 000737 
10597 
10598 
10599 061 021627 000015 
10600 061 001022 
10601 061 005766 000004 
10602 061 001403 
10603 061 016677 000002 
10606 061 27 000006 
10605 061 104401 001223 
10606 061 123727 001135 
10607 061 001003 
10608 061 012777 000100 
10609 061 000002 
10610 061 004737 060416 
10611 061 021627 000060 
10612 061 002420 
10613 061 021627 000067 
10614 061 003015 
10615 061 042726 000060 
10616 061 005766 000002 
10617 061 001403 
10618 061 006316 
10619 061 006316 
10620 061 006316 
10621 061 005266 000002 
10622 061 056616 177776 
10623 061 000667 
10624 061 104401 001222 
10625 061 000720 
10626 
10627 
10628 
10629 
106 30 
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000001 
117764 


117712 


000001 
117670 


7$: 


9$: 


208: 


168: 


17$: 


18$: 
.DSABL 


24-MAY 


BR 
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astKs 

7$ 
astKB,-(SP) 
#*C177, (SP) 
(SP) #3 

t 

SSCNTLC 
#6,SP 
SINTAG, #1 
8$ 

#100 ,asTKs 
OPERSEL 
(SP), #25 
10$ 


-SCNTLU 
+ Tad 
19% 


(SP) ,#15 
16% 

4 (SP) 

13$ 

2(SP) ,aSwR 


, SCRLF 
SINTAG,#1 


15% 
#109,a8$TKS 


PC ,STYPEC 
(SP) ,#60 


18$ 

(SP) ,#67 
18% 
#60, (SP)+* 
2(SP) 

17% 

(SP) 

(SP) 

(SP) 
2(SP) 
=2(SP), (SP) 
7$ 

SQUES 


308 


;;CHAR THERE? 
7 1f NOT TRY AGAIN 


;;PICK UP CHAR 
; MAKE IT 7-B1T ASCII 


331S 11 A CONTROL-C? 
;;BRANCH IF NOT 

7; YES, ECHO CONTROL-C (*C) 
;;CLEAN UP STACK 


;;REENABLE TTY KEYBOARD INTERRUPTS? 


;;BRANCH IF NO 
;;ALLOW TTY KEYBOARD INTERRUPTS 
3; CONTROL=C RESTART 


3:18 11 A CONTROL=U? 

> BRANCH IF NOT 

:;YES, ECHO CONTROL=-U (“U) 
3; 1GNORE PREVIOUS INPUT 
s;LET'S TRY IT AGAIN 


s31S8 17 A <CR>? 
;;BRANCH IF NO 
:;YES, IS IT THE FIRST CHAR? 
;;BRANCH IF YES 


>;ECHO <CR> AND <LF> 

; RE-ENABLE TTY KBD INTERRUPTS? 
>; 9RANCH IF NOT 

; RE-ENABLE TTY KBD INTERRUPTS 
7; RETURN 

7 :ECHO CHAR 

3; CHAR < 0? 

;;BRANCH IF YES 

:;CHAR > 7? 

; BRANCH IF YES 
s;STRIP-OFF ASCII 

7718 THIS THE FIRST CHAR 
;;BRANCH IF YES 

:3NO, SHIFT PRESENT 

33 CHAR OVER TG MAKE 
33 ROOM FOR NEW ONE. 
;;KEEP COUNT OF CHAR 
s;SET IN NEW CHAR 

3:;GET THE NEXT ONE 

77 TYPE 2<CR><LF> 

s; SIMULATE CONTROL-U 


SeTHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


seCALL: 


SEQ 0241 


i. 3 
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10632 3* ROCHR 3;GET A CHARACTER FROM THE QUEUE 
10633 ;@ RETURN HERE ;: CHARACTER IS ON THE STACK 

10634 3* s;WI1TH PARITY BIT STRIPPED OFF 
10635 : 

10636 

10637 061336 011646 SRDCHR: MOV (SP) ,-(SP) fit» DOWN THE PC AND 

10638 061340 016666 000004 000002 MOV 4(SP),2(SP) PS 

10639 061346 005066 000004 CLR 4 (SP) se cet READY FOR A CHARACTER 

10640 061352 005046 CLR -(SP) :;PUT NEW PS ON STACK 

10641 061354 012746 061362 MOV #64%,-(SP) ;;PUT NEW PC ON STACK 

10642 061360 000002 RTl :;POP NEW PC AND PS 

10643 061362 6438: 

10644 061362 005737 060466 1$: TST STKCNT >;WAILT ON A CHARACTER 

10645 061366 001775 BEQ 1$ 

10646 061370 005337 060466 DEC STKCNT ; ;DECREMENT THE COUNTER 

10647 061374 117766 177072 000004 MOvB asTKQOUT;4(SP) 3 3GE) ONE og ta 

10648 061402 005237 060472 INC $TKQOUT UPDATE THE POINTER 

10649 061406 023727 060472 060505 CMP $TKQNUT, #STKOEND DID 11 GO OFF OF THE END? 

10650 061414 001003 BNE 2$ s;BRANCH IF NO 

10651 061416 012737 060474 060472 MOV @STKQSRT, $TKQoUT Fit THE POINTER 

10652 061424 000002 2s: RT1 7 RETURN 

10653 ppeeeereeerererrrrererererereretrerererereneeneneeenenenteererenes 
10654 s*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 

10655 s*CALL: 

10656 3° ROLIN >: INPUT A STRING FROM THE TTY 

10657 3 RETURN HERE s ADDRESS OF FIRST CHARACTER WILL BE ' THE STACK 
bed ;f s: TERMINATOR WILL BE A BYTE OF ALL O'S 
10660 061426 010346 SRDLIN: MOV R3,-(SP) s SAVE R35 

10661 061430 012703 061534 1$: MOV @STTYIN,R3 rr ADDRESS 

10662 061434 022703 061545 23: CMP @STTYINGD.,.R3 3 ;BUFFER FULL? 

10663 061440 101405 BLOS 4$ ;;BR IF YES 

10664 061442 104410 RDOCHR 3:60 READ ONE CHARACTER FROM THE TTY 
10665 061444 112613 MOvB (SP)+,(R3) 3:GET CHARACTER 

10666 061446 122713 000177 10$: CMPB #177,(R3) 3:18 17 A RUBOUT 

10667 061452 001003 BNE 3$ 7:SKIP IF NOT 

10668 061454 104401 001222 4$: TYPE , SQUES s; TYPE A °?° 

10669 061460 000763 BR 1$ ;;CLEAR THE BUFFER AND LOOP 

10670 061462 111337 061532 3$: MOvB (R3),9% ::ECHO THE CHARACTER 

10671 061466 104401 061532 TYPE . 

10672 061472 122723 000015 CMPB #15, (R3)+ 7;CHECK FOR RETURN 

10673 061476 001356 BNE 23 3;LOOP IF NOT RETURN 

10674 061500 105063 177777 CLRB -1(R3) >: CLEAR RETURN (THE 15) 

10675 061504 104401 001224 TYPE , Sf sr: TYPE A LINE FEED 

10676 061510 012603 MOV (SP)+,R3 s RESTORE R35 

10677 061512 011646 MOV (SP) ,-(SP) :; ADJUST THE STACK AND PUT ADDRESS OF THE 
10678 061514 016666 000004 000002 MOV 4(SP),2¢SP) 23 FIRST ASCI1] CHARACTER ON IT 
10679 061522 012766 061534 000004 MOV @STTYIN,4(SP) 

10680 061530 0690002 RTI > RETURN 

10681 061532 000 9$: -BYTE 0 41 Hee FOR ASCI] CHAR. TO TYPE 
10682 061553 000 -BYTE 0O 77 TERMINATOR 

10683 061534 000011 STTVYIN: .BLKB 9. Say be Py a BYTES FOR TTY INPUT 
10684 061545 136 006503 000012 SCNTLC: .ASCIZ /*C/<15>«12> 2s CONTROL **C° 

10685 061552 052536 005015 000 S$CNTLU: .ASCIZ /*U/<15><12> >; CONTROL ne 

10686 061557 136 006507 000012 SCNILG: .ASCIZ /*G/<15><12> >: CONTROL ‘'G 

10687 061564 005015 053523 020122 SMSWR: .ASCIZ <15>«<12>/SWR = / 
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061572 020075 000 

061575 040 047040 053505 SMNEW: .ASCIZ / NEW = / 

061602 036440 000040 

;FROM THE TTY 


DEE ee ee 
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000004 000002 


061734 


000060 


000067 


177770 


000012 
061744 


001222 
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READ AN OCTAL NUMBER FROM THE TTY 


-SBTTL READ AN OCTAL NUMBER FROM THE TTY 


peeeeereeeerereerrrererererrerererertereeeeerertereererereeeeeTs 
THIS ROUTINE eek — AN OCTAL (ASCI1]) NUMBER FROM THE TTY AND 
;*CHANGE 11 TO BINA 

:*THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 
S*OCTAL ti bbe? If AN ILLEGAL CHARACTER IS READ A ‘'?"* WILL BE TYPED 
:*FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST 

> * THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 


*CALL: 


RDOCT 
RETURN HERE 


;;READ AN OCTAL NUMBER 
;;LOW ORDER BITS ARE ON TOP OF THE STACK 
;;HIGH ORDER BITS ARE IN $HIOCT 


SRDOCT: MOV (SP) ,=(SP) > PROVIDE SPACE FOR THE 
MOV 4(SP),2(SP) >; INPUT NUMBER 
MOV RO,-(SP) >:PUSH RO ON STACK 
MOV R1,-(SP) :;PUSH R1 ON STACK 
MOV R2,-°(SP) 37PUSH R2 ON STACK 
1$: ROLIN ::READ AN ASCIZ LINE 
MOV (SP)+,R0 :;GET ADDRESS OF 1ST CHARACTER 
MOV R0,5$ ;;AND SAVE IT 
CLR R1 7;CLEAR DATA WORD 
CLR R2 
2%: MOVB (RO)+,-(SP) : PICKUP THIS a 
BEQ 3$ s1f ZERO GET OUT 
CMPB #'0, (SP) > S MAKE SURE THIS CHARACTER 
BGT 3731S AN OCTAL DIGIT 
CMPB #°7, (SP) 
BLT 4$ 
ASL R1 tite 
ROL R2 
ASL R1 3284 
ROL Re 
ASL R1 378 
ROL R2 
BIC #*C7, (SP) zr: STRIP THE ASCI1 JUNK 
ADD (SP)+,R1 +3 ADD IN THIS DIGIT 
BR 23 LOOP 
3$: TST (SP)¢ 11 CLEAN TERMINATOR FROM STACK 
MOV R1,12(SP) ;SAVE THE RESULT 
MOV R2,$HI0CT 
MOV (SP)+,R2 :;POP STACK INTO R2 
MOV (SP)+,R1 :;POP STACK INTO R1 
MOV (SP)+,R0 :;POP STACK INTO RO 
RT] 3 RETURN 
4$: TST (SP)¢ 7;CLEAN PARTIAL FROM STACK 
CLRB (RO) 3;SET A TERMINATOR 
TYPE >; TYPE UP THRU THE BAD CHAR, 
5$: -wORD 0 
TYPE , SQUES 3 a Te" g a} ee 
He 1$ SS TRY AGAIN 
$HIOCT: .wORD 0 > ;H1GH ORDER BITS GO HERE 


SEQ 0244 



































061746 
061746 


061750 
061756 


061756 
061762 
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104407 
012737 


105237 


001402 
013716 


000002 


09:10 


177777 


001103 


001102 
002000 


001216 


020000 


062114 
001223 


117062 


001000 


001110 
001214 


001214 
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ERROR HANDLER ROUTINE 
-SBTTL ERROR HANDLER ROUTINE 


ppeeeeerereererereerererereerereeeerrerenereenereeereeerereeeees 
>*®THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 

;*AND GO TO SERRTYP ON ERROR 
*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


;*SAVE THE ERROR 


7*Sw15=1 

7*Sw13=1 

3*Swl0=1 

3*Sw09=1 

3 * CALL 

if ERROR 

SERROR: 

SwR 

MOV 

REGSAI: 

7$: INCB 
BEQ 
MOV 
BIT 
BEQ 
TYPE 

1$: INC 
MOV 
SUB 
MOVB 
BIT 
BNE 
JSR 
TYPE 

208: 

2$: TST 
BPL 
HALT 
CKSWR 

3$: BIT 
BEQ 
MOV 

4%: TST 
BEQ 
MOV 


5$: 


HALT ON ER 


a 3 
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ROR 
INHIBIT Mee TYPEOUTS 


BELL ON ERR 
LOOP ON ERROR 


N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 


#-1,Q#ERFLGS 


SERFLG 
7$ 


STSTNM,@DISPLAY 
+ james 


, $BELL 
SERTTL 
(SP) ,SERRPC 

, SERRPC 
@SERRPC ,SITEMB 
= aaa 


2 
PC, SERRTYP 
-SCRLF 


aSWR 
3$ 


+ iaeneans 


4 
SLPERR, (SP) 
SESCAPE 


5$ 
SESCAPE , (SP) 





3; TEST FOR CHANGE IN SOFT=-SWR 
;SET ERROR FLAG 


37;SET THE ERROR FLAG 

::DON'T LET THE FLAG GO TO ZERO 
7;DISPLAY TEST NUMBER AND ERROR FLAG 
;;BELL ON ERROR? 

3:NO - SKIP 

ssRING BELL 

;;COUNT THE NUMBER OF ERRORS 

::GET ADDRESS OF ERROR INSTRUCTION 


::STRIP AND SAVE THE ERROR ITEM CODE 
3:SKIP TYPEOUT IF SET 

7; SKIP TYPEOUTS 

3:60 TO USER ERROR ROUTINE 


;;HALT ON ERROR 

:;SKIP IF CONTINUE 

;:HALT ON FRROR! 

3; TEST FOR CHANGE IN SOF T-SWR 

4° AF cae SWITCH SET? 
>;FUDGE RETURN FOR LOOPING 
Dobe FOR AN ESCAPE ADDRESS 
;:BR IF NONE 

;:FUDGE RETURN ADDRESS FOR ESCAPE 


7 ;RETURN 





SEQ 0245 
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104401 


001004 
013746 


000764 


012601 
012600 


001223 


001114 


001116 


001226 
062166 


001223 
062204 


001223 


062264 


001225 
000 
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~SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


peteeeeererrereereererererrereeererererererereeKeKeKAeeAeeeeee eee 


eTHIS ROUTINE USES THE "ITEM CONTROL BYTE’ (SITEMB) TO DETERMINE WHICH 


;*ERROR 1S TO BE REPORTED. IT THEN OBTAINS, 


FROM THE “ERROR TABLE*’ (SERRTB), 


:*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


SERRTYP: 


23: 
3$: 


4$: 


5$: 


6$: 


7$: 


9$: 
108: 


118: 


, SCRLF 
~ ial 


R 
asSiTEMB,RO 
1$ 


SERRPC,-(SP) 


R 
#SERRTB,RO 
(RO)+,2$ 
3$ 


0 

-SCRLF 
(RO)+,4% 
5$ 


0 

- SCRLF 
R1,-(SP) 
(RO)+,R1 
9$ 


+ RO 
(RO 


7$ 
a(R1)+,-(SP) 
8$ 
a(R1)+,-(SP) 
(R1) 

oS 

,11$ 

6$ 

(SP)+,R1 
(SP)+,RO 
SCRLF 

PC 

/ f 


=, ee RETURN’ & “LINE FEED" 
33 9AV 
;;PICKUP THE ITEM INDEX 


331f ITEM NUMBER IS ZERO, JUST 

3; TYPE THE PC OF THE ERROR 

;;SAVE SERRPC FOR TYPEOUT 

;;ERROR ADDRESS 

;3:G0 PAS tana ASCII(ALL DIGITS) 


oe OU 
;;ADJUST THE INDEX SO THAT IT WILL 
ae WORK FOR THE ERROR TABLE 


>;FORM TABLE POINTER 
;rPICKUP “‘ERROR MESSAGE’ POINTER 
:;SKIP TYPEOUT IF NO POINTER 
s: TYPE THE ‘ERROR MESSAGE" 
::""ERROR MESSAGE’ POINTER GOES HERE 
::""CARRIAGE RETURN’ & ‘LINE FEED" 
PICKUP “DATA HEADER" POINTER 
ee TYPEQUT IF 0 
s: TYPE THE "DATA HEADER" 
::'"DATA HEADER’ POINTER GOES HERE 
te oe RETURN'' & “LINE FEED" 
::PICKUP “DATA TABLE’ POINTER 
7:BR IF NO DATA 10 BE TYPED 
zs :PICKUP "DATA FORMAT’ POINTER 
#3 OCTAL™ OR "DECIMAL" 

sBR IF DECIMAL 
+: SAVE a(R1)+ FOR TYPEQOUT 
3360 TYPE--OCTAL ASCII(ALL DIGITS) 


7;SAVE a(R1)+ FOR TYPEOUT 
3:G0 TYPE=-DECIMAL ASCII WITH SIGN 
3:18 THERE ANOTHER NUMBER? 


3:BR IF NO 
s: TYPE TwO(2) SPACES 
3; LOOP 

; ; RESTORE Ae 


> RESTORE RO 
 Ninetac RETURN’ & “LINE FEED" 
sty) SPACES 





SEQ 0246 


ee ee 


B 4 
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C 
CZRJHD. P12 01-MAR-79 09:10 BINARY TO OCTAL (ASCII) AND TYPE SEQ 0247 C, 

10849 ~SBTTL BINARY TO OCTAL (ASCII) AND TYPE P 
10850 P 
10851 ppeeeeeeeeeeeereerereerrererereeeereerereerrerererererereteteeeee P 
10852 s*THIS ROUTINE IS USED TO CHANGE A 16-B1T BINARY NUMBER T0 A 6-DIGIT P 
10853 s*OCTAL (ASCII) NUMBER AND TYPE IT. P 
10854 s*STYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE P 
10855 *CALL: . 
10856 3* MOV NUM ,-(SP) ; NUMBER TO BE TYPED P 
10857 7° TYPOS 3; CALL FOR TYPEOUT P 
10858 ;* BYTE N s7N=1 TC 6 FOR NUMBER OF DIGITS TO TYPE P 
10859 if -BYTE 3:M=1 OR O P 
10860 3* fe ee LEADING ZEROS P| 
10861 3* ;0=SUPPRESS LEADING ZEROS P 
10862 ;* P 
10863 s*$TYPON=----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
10864 s*STYPOS OR STYPOC P 
10865 *CALL: P 
10866 if MOV NUM ,-(SP) ; ;NUMBER TO BE TYPED P 
10867 3* TYPON 3;CALL FOR TYPEOUT P 
10868 :* P 
10869 s*STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER P 
10870 7*CALL: P 
10871 3* MOV NUM, =-(SP) ;;NUMBER TO BE TYPED P 
b+ $4 3* TYPOC ;;CALL FOR TYPEOUT P 

Pp 
10874 062270 017646 000000 $STYPOS: MOV a(SP),-(SP) 3;PICKUP THE MODE Pr 
10875 062274 116637 000001 062513 MOVB 1(SP),SOFILL 3;LOAD ZERO FILL SWITCH P 
10876 062302 112637 062515 MOVB (SP)+,$OMODE+1 ;;NUMBER OF DIGITS TO TYPE P 
10877 062306 062716 000002 ADD #2, (SP) ;;ADJUST RETURN ADDRESS Pp’ 
10878 062312 000406 BR $TYPON PI 
10879 062314 112737 000001 062513 S$TYPOC: MOVB #1,SOFILL 7:SET THE ZERO FILL SWITCH 
10880 062322 112737 000006 062515 MOVB #6, SOMODE +1 7;SET FOR SIX(6) DIGITS 
10881 062330 112737 000005 062512 $TYPON: MOVB #5,S0CNT 3;SET THE ITERATION COUNT P 
10882 062336 010346 MOV R3,-(SP) 7; SAVE R P 
10883 062340 010446 MOV R4,-(SP) 73 SAVE R4 P 
10884 062342 010546 MOV R5,-(SP) 37 SAVE RS P 
10885 062344 113704 062515 MOVB SOMODE*1, RG 3;GET THE NUMBER OF DIGITS TO TYPE Pp 
10886 062350 005404 NEG a 
10887 062352 062704 000006 ADD 56. RG ;; SUBTRACT IT FOR MAX. ALLOWED R 
10888 062356 110437 062514 MOVB RG. SOMODE 3;SAVE IT FOR USE R 
10889 062362 113704 062513 MOVB SOFILL,R4 3:;GET THE ZERO FILL SWITCH R 
10890 062366 016605 000012 MOV 12(SP),R5 7;PICKUP THE INPUT NUMBER R 
10891 062372 005003 CLR R3 43" he THE OUTPUT WORD R 
10892 062374 006105 1$: ROL R5 ROTATE MSB INTO ‘“'C’’ R 
10893 062376 000404 BR 3$ £360 DO MSB & 
10894 062400 006105 2$: ROL R5 3;FORM THIS DIGIT a 
10895 062402 006105 ROL R5 R 
10896 062404 006105 ROL 5 . 
10897 062406 010503 MOV R5,R3 R 
10898 062410 006103 3$: ROL R3 3:GET LSB OF THIS A tcl R 
10899 062412 105337 062514 DECB SOMODE s ; TYPE THIS DIGIT R 
10900 062416 100016 BPL 7$ 7;BR 1F NO 4 
10901 062420 042703 177770 BIC #177770,R3 3:GET RID OF JUNK 
10902 062424 001002 BNE 4% 7; TEST FOR 0 
10903 062426 005704 TST RG + ereres THIS 0? 
10904 062430 001403 BEQ 5$ :;BR IF YES 

| 
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CZRIHD.P12 01-MAR-79 09:1 BINARY TO OCTAL (ASCII) AND TYPE SEQ 0248 
10905 062432 005204 4$: INC R4 ::DON'T SUPPRESS ANYMORE 0'S 
10906 062434 052703 000060 BIS #'O,R3 ;;MAKE THIS DIGIT ASCII 
10907 062440 052703 000040 5$: BIS a’ URS > MAKE ASCII IF NOT ALREADY 
10908 062444 110337 062510 MOVB R3,88 > SAVE FOR TYPING 
10909 062450 104401 062510 TYPE 8% ::G0 TYPE THIS DIGIT 
10910 062454 105337 062512 7$: DECB $OCNT :; COUNT BY 1 R 
10911 062460 003347 BGT 2% ::BR IF MORE TO DO R 
10912 062462 002402 BLT b$ ::BR IF DONE R 
10913 062464 005204 INC RG :; INSURE LAST DIGIT ISN'T A BLANK R 
10914 062466 000744 BR 2% ::;G0 DO THE LAST DIGIT R 
10915 062470 012605 6$: MOV (SP)+,R5 s ;RESTORE RS 
10916 062472 012604 MOV (SP) +,R4 s RESTORE RG R 
10917 062474 012603 MOV (SP)*,R3 : RESTORE R3 R 
10918 062476 016666 000002 000004 MOV 2(SP),4(SP) +;SET THE STACK FOR RETURNING 
10919 062504 012616 MOV (SP)+, (SP) R 
10920 062506 000002 RT]  ;RETURN R 
10921 062510 000 8$: BYTE 0 ::STORAGE FOR ASCII DIGIT 
10922 062511 000 BYTE 0 >: TERMINATOR FOR TYPE ROUTINE 
10923 062512 000 SOCNT: .BYTE 0 :;OCTAL DIGIT COUNTER 
10924 062513 000 SOFILL: .BYTE 0 >;Z2ERO FILL SWITCH 

062514 000000 SOMODE: .WORD 0 : NUMBER OF DIGITS TO TYPE 
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CZRJIHDO,RPO4/5/6 DSKLS CTRLR2 MACY11 30A‘1052) 
CZRIHD.P12 01=-MAR=79 09:10 TRAP DECODER SEQ 0249 
10926 .SBTTL TRAP DECODER 
10927 
10928 ppteeererererererereererereeerreereeereeeeterteereeeterereeetenes 
10929 s*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
10930 s*AND USE 1T TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS f 
10931 s*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL f 
Mat :*#G0 TO THAT ROUTINE. F 
f 
10934 062516 010046 STRAP: MOV RO,-(SP) 7; SAVE RO f 
10935 062520 016600 000002 MOV 2(SP),R0 3;GET TRAP ADDRESS i] 
10936 062524 005740 TST =-(RO) : ;BACKUP BY 2 f 
10937 062526 111000 MOvB (RO) ,RO :;GET RIGHT BYTE OF TRAP { 
10938 062530 006300 ASL RO >;POSITION FOR INDEXING ‘ 
10939 062532 016000 062552 MOV STRPAD(RO),RO ;; INDEX TO TABLE ‘ 
10940 062536 000200 RTS RO 3:60 TO ROUTINE { 
10941 { 
10942 N 
ba 3;THIS IS USE TO HANDLE THE ‘'GETPRI'’ MACRO ‘ 
‘ 
10945 062540 011646 STRAP2: MOV (SP) ,=(SP) s;MOVE THE PC DOWN ‘ 
10946 062542 016666 000004 000002 MOV 4 (SP) ,2(SP) ;;MOVE THE PSW DOWN ‘ 
10947 062550 000002 RTl ; RESTORE THE PSwW { 
10948 $ 
10949 -SBTTL TRAP TABLE ‘ 
10950 ‘ 
10951 :*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED { 
10952 :*BY THE ‘‘TRAP’’ INSTRUCTION, 
10953 
10954 3 ROUTINE { 
10955 > #  . <ecewmm N 
10956 062552 062540 $STRPAD: .WORD $TRAP2 S 
10957 062554 060246 STYPE 3; CALL=TYPE TRAP#1(104401) TTY TYPEOUT ROUTINE ‘ 
10958 062556 062314 $TYPOC ;;CALL=TYPOC TRAP4#+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) ‘ 
10959 062560 062270 STYPOS ;;CALL=TYPOS TRAP*+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) s 
10960 062562 062330 $TYPON ;;CALL=TYPON TRAP#4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) S 
+ ag 062564 060022 STYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) ‘ 
¢ 
+ +4 062506 061064 $GTSWR ;;CALL=GTSWR TRAP+6(104406) GET SOFT-SWR SETTING 4 
4 ‘ 
10965 062570 060774 SCKSWR ;;CALL=CKSWR TRAP+7(104407) TEST FOR CHANGE IN SOF T=-SWR ‘ 
10966 062572 061336 SROCHR ;;CALL=ROCHR TRAP#+10(104410) TTY TYPEIN CHARACTER ROUTINE ‘ 
10967 062574 061426 SROLIN ;;CALL=RDLIN TRAP#+11(104411) TTY TYPEIN STRING ROUTINE ‘ 
10968 062576 061606 $RDOCT ;;CALL=RDOCT TRAP#12(104412) READ AN OCTAL NUMBER FROM TTY 
10969 062600 046100 T.SCOP ;;CALL=SCOP1 TRAP#+13(104413) MY LOCAL SCOPES { 
10970 062602 046160 CHECKT ;;CALL=CHECKD TRAP#+14(104414) CHECK DVA,RDY,DPR,DRY ‘ 
10971 062604 046476 WAIT.T 3;CALL=WAT TRAP+15(1046415) WAIT LOOP ‘ 
4 
‘ 
‘ 
4 
{ 
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CZRIHD.P12 01-MAR-79 09:10 POWER DOWN AND UP ROUTINES SEQ 0250 
ere -SBTTL POWER DOWN AND UP ROUTINES 

10974 ppeeeeererereerereeereeerereerrererereererereeeeeeerererererereTe 
10975 sPOWER DOWN ROUTINE 

10976 062606 012737 062752 000024 $PWRDN: MOV WSILLUP ,a#PWRVEC ;;SET FOR FAST UP 

10977 062614 012737 000340 000026 MOV #340, aePWRVEC42 7 PRIO:7 

10978 062622 010046 MOV RO, -(SP) 3;PUSH RO ON STACK 

10979 062624 010146 MOV R1.=(SP) 3;PUSH R1 ON STACK 

10980 062626 010246 MOV R2,-(SP) 3;PUSH R2 ON STACK 

10981 062630 010346 MOV R3,-(SP) 3;PUSH R3 ON STACK 

10982 062632 010446 MOV R4,-(SP) >;PUSH R& ON STACK 

10983 062634 010546 MOV R5,-(SP) :;PUSH RS ON STACK 

10984 062636 017746 116276 MOV aSwR,-(SP) + PUSH aSWR ON STACK 

10985 062642 010637 062756 MOV SP, SSAVR6 SAVE SP 

10986 062646 012737 062660 000024 MOV HSPWRUP awPWRVEC :;SET UP VECTOR 

10987 062654 000000 HALT 

10988 062656 000776 BR 72 ; HANG UP 

10989 

10990 ppeeeeeeeereeerrereerereeerertererereeretereerereeeeereereeeTee 
10991 sPOWER UP ROUTINE 

10992 062660 012737 062752 000024 $PwWwRUP: MOV @S$ILLUP ,a#PWRVEC ;;SET FOR FAST DOWN 

10993 062666 013706 062756 MOV SSAVRO, SP 3:GET SP 

10994 062672 005037 062756 CLR SSAVR6 :;WALT LOOP FOR THE TTY 

10995 062676 005237 062756 1$: INC SSAVRO srWAIT FOR THE INC 

10996 062702 001375 BNE 1$ ::O0F WORD 

10997 062704 012677 116230 MOV (SP)+,aSWR :;POP STACK INTO aSwR 

10998 062710 012605 MOV (SP)+,R5 ;;POP STACK INTO R5 

10999 062712 012604 MOV (SP)+*,R4 ;;POP STACK INTO R& 

11000 062714 012603 MOV (SP)+,R3 :;POP STACK INTO R3 

11001 062716 012602 MOV (SP)4+,R2 SOP STACK INTO R2 

11002 062720 012601 MOV (SP)+,R1 POP STACK INTO RI 

11003 062722 012600 MOV (SP)+,RO :: OP STACK INTO RO 

110046 062724 012737 062606 000024 MOV papuaée. aePWRVEC aa iets UP THE POWER DOWN VECTOR 
11005 2732 012737 000340 000026 MOV #340, aePWRVEC 42 ; PRIO:7 

11006 062740 104401 TYPE “REPORT THE POWER FAILURE 

11007 062742 062760 SPWRMG: .WORD SPOWER :;POWER FAIL MESSAGE POINTER 
11008 062744 012716 MOV (PC)+, (SP) ; RESTART AT BEGIN 

11009 062746 017360 SPWRAD: .WORD BEGIN s RESTART ADDRESS 

11010 062750 000002 RTl 

11011 062752 000000 SILLUP: HALT s; THE POWER UP SEQUENCE WAS STARTED 
11012 062754 000776 BR 72 >: BEFORE THE POWER DOWN WAS COMPLETE 
11013 062756 000000 SSAVRO: 0 :;PUT THE SP HERE 

11014 062760 005015 047520 042527 $POWER: .ASCIZ <15><12>''POWER"’ 

11015 062766 000122 

11016 ~EVEN 

11017 

11018 000001 END 
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ACL = 000040 
ACU = =_:«: 100000 
ADDMOD 000204 
ADTIMO 052534 
AOE = 001000 
AS 015050 
ATA == 100000 
ATABLE 017340 
ATTENT 015134 
ATO =—s_ =-—«E00001 
ATl = 000002 
AT2 = 000004 
AT3 == 000010 
A1™4 == 000020 
A1™S == 000040 
AT6 = =_: 000100 
A17 = = 000200 
Al6 = 000400 
Al7 == 001000 
BA 015026 
BAl = 000010 
BASECH 051550 
BEGIN 017360 
BEGIN2 017350 
BITST 045664 
BI1TO = 000001 
B1T00 = 000001 
B1101 = 000002 
B1T02 = 000004 
B1103 = 000010 
B1104 = 000020 
B11T05 = 000040 
B1T06 = 000100 
B1107 = 000200 
B1108 = 000400 
B1T09 = 001000 
B1T1 = 000002 
B1110 = 002000 
B11T11 = 004000 
B1T12 = 010000 
61113 = 020000 
BIT14 = 040000 
81115 = 100000 
B1T2 = 000004 
B173 = 000010 
BITS = 000020 
B11T5 = 000040 
B11T6 = 000100 
B117 = 000200 
B118 = 000400 
B119 = 001000 
BLT! 045712 
BLT2 045734 
BLT3 045744 
BPTVEC= 000014 
(A 015044 


7944 
7940 
79488 
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CROSS REFERENCE TABLE -- USER SYMBOLS 


27928 = =4845* 4857 5037* 5048 
5034 5183 


3346" 4845 5037 5186 


4838" 5022* S027" S5172* 51768 
8652 

9120 

9114 11009 


8424 8426 


10294 
10302 10785 


8421 10776 
10280 
8398 8405 8414 8416 


79468 


5186* 


5196 


SEQ 0251 
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CZRJHD. Pl2 01-MAR-79 09:10 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0252 

CC 015070 28008 

CHECKD= 104414 109708 

CHECKE 046350 344 ba 5675 5854 6040 6189 6371 6545 6733 6872 7047 7223 7410 

CHECKT 046160 4677 4763 4940 §111 5345 5459 5627 5810 5987 6154 6323 6502 6678 
6838 6999 7179 7357 7547 8038" 8235 8334 8507 10970 

CKSWR = 104407 10268 10760 10784 #£10965¢ 

CLAREA 046034 4649 5502 5509 6198 6205 6881 6888 79818 

CLDISK 046116 3089 3106 3305 3427 3467 3525 4616 4670 4755 4932 5103 5236 5414 
5615 5798 5976 109 6311 6491 6666 6793 6987 7167 7346 7535 7661 
7696 7730 8017# 8224 8322 8506 8693 9129 

CLR = 000040 25218 3550 3592 3616 3646 3673 3704 3732 3775 3819 3889 3933 3972 
4032 4079 4138 4172 4206 4242 4273 4285 4306 4318 4347 4377 4416 
4426 4445 4455 4478 4509 4541 4580 8022 

COMHD 052650 4686 4788 4964 5634 5817 5993 6330 6508 6685 7006 7186 7363 7554 
8241 8339 8527 92248 

COMPA 053722 9380" 9430 95118 9657 

COMPAR 047020 3501 4861 4878 5054 5201 5360 5520 5699 5882 6069 6216 6392 6571 
6759 6899 7067 7250 7440 7629 8258" 8548 8574 

COMWHD 055772 5135 5350 5469 6164 6848 97768 

COUNTD 054370 965148 9655" 9671 

CPHALT 005123 17014 4678 4764 4941 5112 5346 5356 5460 5495 5628 5676 5811 5855 
5988 6041 6155 6190 6324 6372 6503 6546 6679 6734 6839 6873 7000 
7048 7180 7224 7358 7411 7548 7603 8236 8335 8508 

CR = 000015 538¢ 104654 10464 

CRC 047332 4663 4749 4926 5097 5289 5328 5438 5606 5780 5959 6133 6302 6473 
6648 6817 6978 7143 7327 7518 8218 8316 83748 8477 

CRLF = 000200 539# 10425 10464 

CSF = 000002 26548 

csu— = 000010 26564 

C$] 015032 2148 2151 2159 2166 2173 2183 2186 2190 2206 27854 46839" S5031* 5178 
7679 8041 8045 8052 8098 8106 

($2 015030 2148 2151 2159 2173 2206 27828 $023" 5028" 5029" 5179" 5180* 

CYL 053010 4656* 4664 4742 4750 4862 49198 4927 5598 5607 5772 5781 5951 5960 
62948 6303 64658 6474 6640" 6649 6970« 6979 7135* 7144 73198 7328 7510 
7519 B2ll* 8219 8308 8317 B471* 8478 92548 

DAREAD 053064 9303 9315@ 

DATENV 050636 2202 5424* $5922 S$766* 5945* 61198 6288 6459" 66354* 6803" 69648 7129 73138 
7504* 8768 9539 9556" 9606" 9A22* 

DAWORD 053070 _ 5778 5957" 6300" 6471" 6646" 6976* 71418 73258 7516* 8216" 8313" 84762 

oa 

0B 015022 2159 27798 

DOCK = 100000 25898 5835 6011 6031 6526 6703 6723 7204 7381 7401 7572 7592 8605 
8608 8624 8627 

Oct = 000100 2715@ 

D.LEAR 015156 28548 

DDISP = 177570 5454 744 2934 

DENvL = 000200 25998 5033 

DE! = 000040 25618 

DFF20 = 000002 2557@ 

pF) 012516 801 920 927 22138 

pFfil 012534 909 22208 

DFI4 012543 940 22234 

pFis 012553 949 22268 

DF 16 012556 900 22274 

pti? 012563 973 22298 
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CZRIHD.P12 

DF2 012523 
DF 20 012572 
DF21 012601 
DF 22 012606 
DF 24 012612 
DF 26 012621 
DF 27 012631 
oF3 012527 
DF 30 012637 
DF 31 012645 
DF 32 012655 
DF33 012666 
DF 34 012676 
DF 35 012705 
DF 36 012715 
DF 37 012723 
DF4O 012734 
DF42 014730 
DF 44 014733 
DFS = 000001 
DF54 014740 
DH1 005451 
DH11 005701 
DH1G 006056 
DH15 006255 
DH16 006305 
DH17 006443 
DH2 005567 
DH20 006620 
DH21 006774 
DH22 007110 
DH24 007204 
DH26 007362 
DH27 007560 
DH30 007716 
DH31 010050 
DH32 010246 
DH33 010463 
DH34 010662 
DH35 011035 
DH36 011232 
DH37 011370 
DH40 011607 
DH42 014410 
DH44 014471 
DHS4 014603 
DIGB = 000004 
DISK 954726 
DISPLA 001142 
DISPRE 000174 
DLT 100000 
DLO64 000020 
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1235 


103523* 


SEQ 0255 


1369 


1367 


6434 
8458 
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CZRJHD.P12 09:1 
DMD == 000001 25938 
9519 
0129 
DPR = 000400 25648 
DRY = 000200 25654 
DST 015036 2170 
DSwR = 177570 5448 
dS! 015054 2148 
8064 
015056 27958 
DIAGAP 055732 9738e 
DIE = 010000 25868 
DISY = 001000 26014 
d11 011764 800 
D111 012026 908 
D114 012046 939 
D115 012070 948 
D116 012100 959 
D117 012116 972 
DT2 012000 21438 
D120 012136 985 
DT21 012156 996 
D122 012172 1013 
DT24 012204 1042 
D126 012224 1068 
D127 012246 1083 
D13 012012 888 
D130 012264 1096 
D131 012302 851 
D132 012324 835 
D133 012350 818 
D134 012572 1113 
D135 012412 1132 
D136 012434 1147 
0137 012452 1187 
D140 012476 1251 
D142 014672 1257 
DT44 014702 1271 
1375 
D154 014716 1326 
vA = 004000 25498 
ECDATA 050616 8749e 
ECH = 000100 25804 
EC] = 004000 26808 
ECORR 051242 5848 
ECTEST 050654 87884 
EC! 015062 2196 
EC2 015064 2196 
7390 
EMTVEC= 000050 6334 
EM 002136 795 
EM11 02307 900 
EM14 002342 931 
EM15 002362 944 
EM16 002432 955 
—M17 002453 964 


—— os os OP OO 
—w@mooo 


3a 


m——NN MPT (OF 
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24-MAY-79 
4617 4814 
9549 9552 
8118 

8113 

5036* 5185¢ 
2166 2173 
8113 8118 
5181 

9487 

21418 

1234 21834 
24854 

1298 1305 
1396 1417 
24898 

8045 8106 
9020" 9022" 
7401 7592 
8231 8330 
6716 7217 
9540 9557 
27978 

2798" 5012* 
3041* 3082* 
14488 


4990 
9593 


2183 


1312 
24878 
9529« 
8524 
7394 
9607 


5660 
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5033 
9605 


2186 


1319 


95351* 


7585 
9623 


5844 


8659 8687 8955 
9619 9785 9946 
2190 2206 27968 


1333 1340 1347 


9546" 9548" 95968 
8950" 
6020 6356 6535 


9233 9385 
9949 9958 
4842¢ 50348 
1354 1361 
9600" 9612* 
6712 7032 


SEQ 0254 


9391 
9969 


5183¢ 


1368 


96168 


7213 
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CZRIHD.P12 01-MAR-79 09:10 
EM2 002221 808 
EM20 002477 977 
ER21 002520 990 
EM22 002542 1001 
EM24 003143 1033 
EM25 003236 1046 
EM30 003276 1089 
EM31 003420 1102 
EM32 003543 1119 
EM335 004032 1139 
E34 004104 1152 
EM35 004177 1171 
EM36 004476 1194 
EM37 004664 1214 
Em40 004752 1241 
EM42 012744 1255 
EMG3 013027 1262 
EM44 013073 1269 
EM4S 013130 1275 
EM46 013157 1282 
EM47 013206 1289 
—m50 013243 1296 
—mS1 013301 1303 
EMS2 013322 1310 
—m55 013362 1317 
EMS4 013422 1324 
EMSS 013461 1331 
EM56 013474 1338 
EMS7 013511 1345 
EM6 002250 864 
EM60 013549 1352 
EMO1 013627 1359 
EM62 013677 1366 
EM63 013754 1373 
EM64 014032 1380 
EM65 014066 1387 
EM66 014150 1394 
EM67 014222 1401 
E70 014307 1408 
EM71 014361 141 
ERCRC 056166 9806* 
ERFLGS 015124 28164 
5649 
6387* 
7185* 
9897 
ERHDGP 056170 9807+ 
ERHEAD 056164 9805* 
ERPOS 051240 89468 
ERR = 040000 25708 
ERRVEC= 000004 6264 
ERSTAR 052622 91298 
ERUNIT 052620 91284 
ERWORD 053130 2143 


aw 
10048* 





J 4 
MACY11 30A(1052) 24-MAY=79 15:07 PAGE 258 
CROSS REFERENCE TABLE == USER SYMBOLS 


NU OO VWWN NN 


864 


AN AAAAAAAPRI PPD AAA AAMAS SOO 


POPIPEPIMPIPI PEPE PEPIN POP ss es es es oes os ee ee es 


Ww 

ws & 
--@o— 
22 


23554 


10054* 


840 


14424 


10044* 


2185 
9437 
10067* 


14388 


4707 
5832 
6566* 
7362* 


5183 


29438 


2186 
94418 


4784+ 
5876" 
6684+ 
7378 


3043* 


2190 
9465* 


3508 
9489* 


3084¢ 


470\* 
9978+ 


53438 
6063+ 
6845* 
7569 


10285 


4706* 
9985* 


5352 
6161* 
6856 
7624* 


10286* 


4886 
9989« 


5466* 
6172 


10288* 


5062 
10011* 


5477 

6211* 
7005* 
8526* 


10291* 


5209 
10020* 


5515* 


8272 
10027 


SEQ 0255 


5635* 
6345 
7062* 
9299 


8278+ 
10043e 
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MACY11 30A(1052) 24-MAY-79 15:07 PAGE 259 


CZRJHDO,RPO4/5/6 DSKLS CTRLR2 
CZRJHD.P12 01-MAR-79 09:10 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0256 
ERI 015034 2148 2151 2163 2173 2183 2186 2190 2196 2206 27864 4840" 5032" 51818 
328 5835 6011 6031 6348 6526 6703 6723 7024 7204 7381 7401 7572 
ER2 015040 2163 27884 
ERS 015046 2163 27918 
ExT1 = 000001 26348 
ExT10 = 000010 26378 
Ext2 = 000002 26354 
ExT20 = 000020 26384 
EXT4 = 000004 26364 
EXT40 = 000040 26398 
E00 024330 3555 35684 
E11 025736 3871 38798 
El2 026064 3912 39198 
E44 030570 4557 4565a 
FEN = 000200 26604 
FER = 000020 25788 
FILLEC 051414 5581 5754 5934 6277 6447 6623 6953 7117 7302 7493 9004" 
FIRST 017332 28804 2951 3001* 
FMT22 = 010000 26814 4656 4675 4742 4760 4919 4937 5091 5108 5267 5285 5322 5340 
5432 5448 5467 5598 5621 5679 5772 5804 5858 5951 5982 6044 6127 
6143 6162 6294 6317 6375 6465 6497 6549 6640 6672 6737 6811 6827 
6846 6970 6993 7051 7135 7173 7227 7319 7352 7414 7510 7541 7606 
8211 8231 8308 8330 8471 8524 8653 
FNWORD 056206 5096 5327* 5437* 6132" 6816* 99018 
FORMAT 054372 96524 9670 
FOUT 056212 9898 9904" 
FSYNER 056162 9804* 98324 10015* 
FUTABL 015150 28508 
GCRC 056156 5099 5330 5440 6135 6819 9816# 10037 10042 
GECC1 050620 2193 2196 2202 5422* 5484 5507 5590* 6 5764* 5842 5943" 6018 6117* 
6179 6203 6286* 6354 6457* 6533 6632" 6710 6801* 6862 6886 6962* 7030 
7127* = =7211 7311* 7388 7502* 7579 8753# 8795 8881" 9012" 9028 
GECC2 050622 2193 2196 2202 5423* 5488 5508 5591" 5765* 5944" 6118* 6183 6204 6287+ 
ots 6633*  6802* 6866 6887 6963" 7128 7312* 7503* 87568 8796 8882" 90135" 
GNS = t#eeee YJ 645 2960 2965 2970 2974 2978 2982 2986 2990 2994 2998 3021 3058 
3073 3080 3171 3198 3202 3206 3210 3257 3263 3269 3349 3355 3361 
3395 3401 3407 3433 3437 3441 3448 3833 3837 3841 3845 7735 774) 
7845 7851 7858 7862 7866 7873 7877 9048 9054 9070 9076 9082 9088 
9094 9098 9102 9106 9112 9118 10240 10957 10958 10959 10960 10961 10963 
10965 10966 10967 10968 10969 10970 10971 
GO = 000001 25434 3480 8660 8688 9236 9788 
GRv = 000010 25598 
GTSWR = 104406 3008 109634 
HADTMP 050642 a5S as 5 5763* 5942 6116* 6285" 6456* 6631" 6800" 6961" 7126" 7310" 7501+ 
a 
HARDER 050654 geet 5589 5763 5942 6116 6285 6456 6631 6800 6961 7126 7310 7501 
65a 
HCCRCE 047734 8504« 
HCE = 000200 25818 8593 8597 8605 8608 
HC] = 002000 26798 
HCRC = 000400 2582# 8615 8618 8624 8627 
HDESYN 056172 9808*  9883# 10070* 
HDWSYN 054724 9733" 


HEADER 054700 9730" 


L_ 4 
CZRJHDO,RPO4/5/6 DSKLS crete MACY11 30A(1052) 24-MAY-79 15:07 PAGE 260 


CZRIHD.P12 O1-MAR-79 09:10 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0257 

HEDGAP 053024 9250" 92728 9444" 

HEDSYN 053026 9251* 92858 9466" 94918 

HEGAP 054712 9435 9732" 

HT = 011 5364 10423 10464 

1AE = =_: 002000 25848 

IE = 000100 25448 4150 4183 4522 4553 4560 7666 7701 

Lf = =: 000001 25748 

ILLEGL 015212 28684 

ILR == 000002 25758 

1OTVEC= 000020 6318 2916* 29178 

IR = 000100 25224 3093 5023 5028 5179 

1XE = 004000 26648 

100 024304 35594 3565 

102 024410 3602s 

103 024504 36284 

104 024604 36578 

105 024704 36868 

106 025004 37168 

107 025104 3745e 

114 026256 3982" 

115 026460 4044a 

116 026622 4093" 

124 027206 42138 

JP 1 032342 5018 5026" 

JP2 032372 5024 5031" 

JPS 033002 5168 51754 

JPG 033016 5173 5178" 

KEY! 053014 4659* 4746% 4923* 5602* 5776* 5955" 6298% 6469* 6644* 6974" 7139% 7325" 75148 
8214" 8311" 8474" 92568 

KEY2 053016 4660* 4747* 49246* 5603" 5S5777* 5956" 6299 6470" 6645" 6975" 7140" 7324" 75158 
8215* 8312" 8475* 92578 

KIPARO= 172340 705a 

KIPAR1= 172342 7068 

KIPAR2= 172344 707# 

KIPAR3= 172346 7084 

KIPAR4= 172350 7094 

KIPARS= 172352 710# 

KIPAR6= 172354 7114 

KIPAR7= 172356 7120 

KIPDRO= 172300 6948 

KIPDRI= 172302 695a 

KIPDR2= 172304 6964 

KIPDR3= 172306 697" 

KIPDR4= 172310 698" 

KIPDRS= 172312 6998 

KIPORS= 172314 700# 

KIPDR7= 172316 701" 

LA 015066 2799H =6468435* 85035" 5184 

LAD 046076 7947" 7999# 8003 

LERR 045660 7930# 7936" 7959 

LF = 000012 537#@ 10458 10464 

LST = 002000 25664 

LSTI4A 026506 3978 3992a 

LSTISA 026510 4038 4057# 


LSTI6A 026660 4085 4110# 
L00 024300 3557a ; 











mM 4 
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CZRIHD.P12 01-MAR-79 09:10 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0258 
L02 024406 36008 
L035 024500 36248 
L04 024576 3654e 
L05 024674 36814 
L06 024776 37120 
L07 025074 37408 
L10 025230 37918 
ul) 025674 38634 
Li2 026022 3904e 
L13 026134 3942 
L14 026252 3980" 3990 
L15 026452 40404 4053 
L16 026612 4087# 4106 
L21 027004 41504 
L22 027070 41788 
L30 027316 4250¢ 
L31 027416 42818 
L34 027522 43148 
L35 027636 43548 
L36 027752 4388" 
L40 030066 44240 
L41 030170 44538 
L42 030300 44884 
L43 030414 45198 
L44 030524 4550# 
L45 030646 45894 
MAKECY 050476 3527 4618 86798 
MASK 045656 7929" = =67933* 7949" 7950 7951* 7954* 7955 7956* 
MCLK = 000002 25948 4815 4816 4818 4819 4991 4992 4994 4995 5671 5072 6367 6368 


7043 7044 8982 8983 8990 8991 9387 9388 9391 9392 9395 9396 9524 
9541 9593 9609 9949 9960 10155 10157 10158 10159 10160 10175 10176 8 10177 


10178 

MCPE = 020000 2550" 

mHS = 001000 26624 

M1D 504 8655* 86624 

MIDDLE 050364 86444 

MINX = 000004 25954 9234 9235 9786 9787 10137 #810138 

MMVEC = 000250 6834 

mo. = 010000 25684 3428 3444 

MPE = 000400 25244 

MR 015052 2199 27934 4841* 5033* 51828 

MRD = 000020 25974 9522 9527 9535 9544 9552 

MSE = 000020 26574 

MSTCK = 000010 25964 4815 4816 4828 4829 4991 4992 5004 5005 5159 5160 9386 9388 
9391 9392 9524 9593 9948 9949 10130 10131 10132 10133 10137 10138 10154 
10157 10158 10175 10176 10188 10189 

mwR = 000040 25984 9594 9610 9951 9961 

mxf = 001000 2525# 4211 4213 4217 

NCODE 050626 acd 5588 5762 5941 6115 6284 6455 6630 6799 6960 7125 7309 7500 

NCOUNT 050630 zeete Fong oe 5762e 5941" 6115" 6284* 6455" 6630" 6799" 6960" 7125" 7309* 7500+ 

4 x 
NED = 010000 25284 3859 3868 3909 3953 4601 9132 
NEM = 004000 25278 
= 00200 26634 


NHS 002000 
NOPERA 015150 28514 





PIE 
PIE 
PIE 
PIE 


—-Oo Omnovlwun—-o 


"uHrHt HH HH HHHHhHhHhHhheh hha 


ROR ee os os ws os ow 


CZRJHDO,RPO4/5/6 DSKLS cit 
CZRIJHD.P12 09:10 


z 


WAI Pu for 
wn —-OoOoeon 
z2BBezezezaz= 


dD Od OD Od OD OD GD OD OD OD OD OD OD OD OD OD CD OD OD CD CD CO 
SN NS NS NS NS NS SS SS SSS 
oe 
~ 
RR 


MACY11 30A(1052) 


93684 
3276* 


3284+ 


10589 


5029 
9313 


2179 
8950« 


8880 
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CZRIND.P12 01-MAR-79 09:10 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0260 

PIE31 = 000002 87468 

PIES2 = 000001 87478 8804 8812 

PIES = 010000 87198 

PIES = 004000 87208 

PIE6 = 002000 87218 

PIE? = 001000 87228 

PIES = 000400 87234 

PIE9 = 000200 87248 

PIP = 020000 2569" 

PIRQ = 177772 5438 

PIRQVE= 000240 6378 

PKACK 015206 2866" 3471 

PLU = = _-020000 2666" 

POSITI 050632 2196 2202 5419* 5587* 5761* 5940" 6114* 6283" 6454" 6629* 6798 6959" 71248 
7308* 7499* 87648 8905 8960 8968+ 8969 8971 9011* 

PRE = 000020 27138 

PROG = 001000 25654 8065 

PRO = 000000 5604 

PRI == 000040 5614 

PR2 = 000100 5624 

PRS == 000140 563e 

PRG = 000200 564a 

PRS = 000240 565a 

PR6 == 000300 566" 

PR7 == 000340 567" 

PS = 177776 5408 541 2948* 4486 4520" 4551* 7665* 7700" 7732* 7842+ 

PSEL = 002000 25484 4179 4424 4429 

PSU —s- =_- 000001 27104 

PSw == 177776 5418 

PUTREG 045616 4695 4794 4970 5141 5651 5693 5834 5877 6010 6030 6064 6347 6388 
6525 6565 6702 6720 6753 7023 7063 7203 7244 7380 7400 7434 7571 
7591 7625 7672 7678 7710 7907# 8040 8097 8536 8902 8908 8977 

PWRVEC= 000024 632# 2922* 2923* 10976* 10977* 10986* 10992* 11004* 11005* 

Pi2 050646 8780# 8834* 8835" 8864 

P22 050650 87814 8842* 8843" 8869 

P24 050652 8782" 8850* 8851* 8870 

P3 050644 87794 =8825* 8826* 8863 

RA 000200 3a = =—910 

RCOM 057330 102084 10213* 

RCYL 053114 93384 9376" 9417 

RDOCHR = 104410 10664 109664 

RDHEAD 053132 9252 93768 

RDLIN = 104411 10711 109674 

RDOCT = 104412 3023 7868 7879 9057 Pere 10968" 

RDY = 000200 25454 4522 7666 7679 7701 8041 8052 8098 

READ 053724 9404 9409 9418 9420 9422 9424 9426 9476 9480 9516# 10222 10230 

READAT 015174 28614 

READIN 015210 28678 

RECAL] 015154 28554 

REDATA 057332 9315 1 Pe 

REFOR 015176 28628 32 5815 5991 6328 6506 6683 7004 7184 7361 7552 

REGADR 045662 2141 79 2485 2487 2489 3154* 3510" 3560" 3597" 3621" 3651" 3678+ 

B4e 3851" 3894 3950" 3977" 4037# 4084" 4143" 4175* 42108 = ed? 


57e 4391" «6G 21# = 44508 = 4BSe | 45128 45448 «4598 = BBBe S64 SII 
9o* 8607" B617* 8628 8698+ 





CZRIHDO ,RPOG/5/6 DSKLS phe 


CZRIHD.P12 
REINTO 016264 


RELEAS 015160 
RESVEC= 000010 
RETCL 015204 
RHAS 014774 
RHBA 014752 


RHBAE 
RHCA 


0 

0 
RHCC 015014 
RHCS1 01 


RHCS2 014754 


RHCS3) =: 015016 
RHDB 014746 
RHDST 014762 
RHDS1 015000 
RHDT 015002 
RHEC1 015006 
RHEC2 015010 


RHMR 014776 
RHOF 014706 


RHSN 015004 
RHwWC 014750 


RMR == 000004 
RNCTRI 055770 
RNO 057326 


RPVEC 014744 


09:1 


2 
9072 


9790 
10212¢ 


7677a 
77094 
29498 
9079« 


MACY11 30A(1052) 


4147 
9090 


24-MAY-79 
3496 3502 
5507* 5508+ 
6203* 6204+ 
6886" 6887+ 
8227 8326 
3944 4591 
4083 4672¢ 
6668" 6825¢ 
4939* 5110 
7177* = §=©7356* 
8698 

3552 3861 
4587 4791 
9084 9236+ 
3174 3232¢ 
3893 3933« 
4273* 4277 
4509* 4541¢ 
9058 
4935* 5106 
7172* = =7351* 
3240 3242 
3414 

5012 8899 
8592 8596 
4617* 4813 
9234* 9235* 
4937* 5108* 
7173* 7352* 
3415 

3510 3596 
4949 5043 
6312* 6492* 
8649+ 

3070* 3124 
4148* 41578 
10245 


4516 


¢ 5 
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4517« 


45298 


4547 


4548 


70438 
9945 
6162¢ 


46718 
53548 
75368 


$017 


4567 


7044¢ 
10126 
6317« 


4756* 
54448 
7911 


5167 


?o62 


SEQ 0261 
5196¢ 
5978 


6668 
7348 


5978¢ 
8650* 


6501* 
4449 

8688+ 
3775* 


4206* 
4426¢ 


6496" 


3378 


8659¢ 
6497« 


4772 
5ol6e 
7913 


769? 


D5 Sn Rowe aT 
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CZRJHD.P12 01-MAR-79 09:10 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0262 

RPVECT 057442 2949 = 102378 = 10243 

RSETR 053116 93398 9377" 9419 

RSYNC 053112 sones 5300 5307 93378 89408 9413 9451 9463 9479 9490 10009 10013 10064 

RIN 021360 3075 30820 

RUNCTR 052646 9223# 9238" 92598 

RUNWAT 052726 9238e 

R11 025656 3858" 

R15 026502 4048 4052a 

R16 026652 4101 41054 

ROG 030572 4563 4567m 

SAVDT 015126 28188 34148 

SAVER 046616 3474 3488 4771 4851 4948 5042 5119 5190 81848 

SAVSN 015130 28218 3413* 

sc = 100000 25524 4792 4839 4968 5031 5139 5178 

SCOP1 = 104413 7960 10969" 

SCRC 056240 99348 99418 

SCYL 056250 9930# 9937" 10019 

$c1_ = 000100 26408 

$€10 = 001000 26434 

$c2_ = 000200 26418 

$€20 = 002000 26448 

$(4 = =: 000400 26428 

SEARCH 057056 8661 9245 9798 101198 

SECGAP 054630 5256 5409 6104 6788 97288 9944 

SECOTR 053012 4658* 4744% 4921* 5600" S5601* S774* 5775" 5953* 5954* 6296 6297" 6467* 6468+ 

6642* 6643" 6972e 69738 7137# 7138% 73218 7322* 7512" 7513* B82i2* 8213" 8309" 
8310" B472* 8473* 9242 92558 

SECTR 057054 10117# 10119" 10127 

SEECOM 015200 28634 8686 

SEGPER 056160 9803* 98218 9981"  9992* 

SELECT 015120 28138 2901" 2903" 3017 3287 3315 7747 

SELTST 022754 3192 3287" 

SERCH 015162 2856" 

SETCK1 031466 47918 

SETCK2 032162 49678 

SETCKS 032706 51380 

SETDSK 047606 8452a 

SI1LOSZ 017336 2885¢ 3090* 3091 3092* 3095 

SILOTB 054726 97348 

SKEY1 056234 9932 9939 | 

SKEY2 056236 99338 9940+ 

SKI = 040000 27168 

SN 015060 2796# 

SND 1 020660 2955 30014 

SRO = 177572 6878 

SR1 0 -= 177574 6884 

SR2 = 177576 689" 

= 172516 6908 

SSECTR 056232 9931# 9938+ 

SSYN 53022 9249" 9264 94148 

$$1 033266 5255# 5388 

$$10 0334354 5248* 5309# 5311 5379« 

$$12 033464 5249* 53246# 53808 

$513 033472 5250* 5325 53818 

$S14 033500 5251" 5326# 53828 
| 
J 


e 3 
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CZRJHDO,RPO4/5/6 DSKLS CTRLR2 MACY11 30A(1052) 24-MAY-79 

CZRJHD.P12 01-MAR-79 09:10 CROSS REFERENCE TABLE <= USER SYMBOLS SEQ 0263 

$$15 033540 $252 53368 5383" 

$S2 033724 5385a 

$$3 033314 5244" 52698 53758 

$S$4 033320 5245" 52704 5376* 

sss 033324 5246 52718 5377 

$S7 033352 5247* 52864 5378 

STACK = 001000 531a@ 2914 3039 3119 3464 3523 3557 3594 3618 3648 3675 3706 3734 
3791 3848 3891 3935 3974 4034 4081 4140 4178 4208 4244 4275 4308 
4349 4379 4418 4447 4480 4519 4550 4582 4614 4639 4737 4915 5086 
5234 5406 5558 5731 5911 6101 6254 6424 6600 6785 6932 7096 7280 
7470 7659 7694 

START 017364 2902 29064 

STARTA 017606 29484 

STKLMT= 177774 542a 

SwR 001140 7434 = =2912 2933" 2935 2941 3006 3013 3054 3167 3190 4716 8001 8285 
8890 8892 10280 10294 10296 =. 10302 10309 10509 10548 10603* 10769 10776 = 10781 
10785 10984 10997* 

SWREG 000176 6478 2941 3006 =6.10509—S («110548 ~=—s-:10571 

swO = 000001 595a 

sw0OO = 000001 5854 595 

sw0O1 = 000002 5840 594 

$wO2 = 000004 5834 593 

swO3 = 000010 582a 592 

sw04 = 000020 5814 591 

sw0S = 000040 580" 590 

sw06 = 000100 5798 589 

sw07 = 000200 5784 588 4718 8287 

sw08 = 000400 577# 587 

swo9 = 001000 576" 586 8001 

Sw = 000002 594" 

Swi0 = 002000 575a 

Swi1 = 004000 5748 

Swi2 = 010000 573@ 8 §=3013 

$w13 = 020000 572# 3054 3167 3190 

Swi4 = 040000 S714 

Swi5 = 100000 570" 

Sw2 = 000004 593" 

Sw3 = = 000010 592a 

Sw4 = 000020 591" 

Sw5 == 000040 5904 

SW6 = = 000100 589" 8892 

Sw7 = 000200 588" 

$w8 = 000400 587" 8890 

Sw9 = 001000 586" 

$11 025652 3855¢ 3877 

$12 026006 3897 #§=3918 

$36 027746 43868 4403 

TAGDTE 015146 28404 5238* 5385" 

TBITVE= 000014 6284 

TOF = 000040 2658" 

TESDTE 015144 28364 4783* 4959% 51308 7892* 9428 10003 #10278 

TESTAD 045034 78394 

TIMCNT 046474 7667 7702 8175#@ 8145 8151 

TIMOT = 000004 3535a@ 8 3554 3555e 3570* 3788 3789* 3799« 

TKVEC = 000060 635#@ 10486* 10487* 

TMPILi §=015140 28308 4673" 4698 4704 


— 


CZRIHDO ,RP04/5/6 DSKLS Crguts 


CZRJHD.P12 


TOLGAP 055734 
lower” 015136 


TPVEC = 000064 
TRAPVE= 000034 
TRE = 040000 
TRK 052762 
TRK1 = 004000 
TRK10 = 040000 
TRK2 = 010000 
TRK20 = 100000 
TRKS = 020000 
TRP 021320 


TSECC §=015142 
TSECCG 050624 
TSTNM §=017330 


TST1 021032 
TST10 024200 
TST11 §=—024 2.34 
TST12 024340 
TST15 =©—024432 
TST14 024530 
TST15 024626 


1$145 030450 


MACY11 30A(1052) 


9739" 
3185* 


2921 
4360 


42318 
42708 


4374a 
44138 


24-MAY-79 
3821 3853 
4382 4394 
5760* 5939¢ 
0215 0225 
9525 9537 
2148 2151 
2186 2190 
3146" 34268 
3888+ 3932e 
Q415* 44448 
5560* 5733* 
7693 7847 
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3895 


4839 


7 


4384 


5031 


6282+ 
9554 


4508* 
6103* 


5178 


6958+ 
9689* 


7123¢ 
10217¢ 


SEQ 0264 


CZRJHDO,RPO4G/5/6 DSKLS CTRLR2 


CZRIHD.P12 

TS144 =: 0300600 
T8145 030720 
TS146 030754 
T8147 =. 031306 
TS15 022770 
TS1$0 §©032000 
TS1$1. = 032524 
TS152 «=: 033164 
TS153 =.033740 
TS154 054366 
TS155 =: 035104 
TS156 ©6036 30 
T8157 3=—- 036372 
TST6 023474 
TS160 §©037016 
TST61 37534 
TST62 040260 
TS163 = 0041022 
TST64 «041446 
TST65 042164 
TS166 0 =: 042720 
TS167 =: 0434476 
TS17 024036 
TST70 §=—6. 044254 
1$171 044366 
TST72 044462 
TINO = 000071 
TUF = 000100 
TY 053126 
TYPDS = 104405 
TYPE = 1046401 
TYPOC = 104402 
TYPON = 104404 
TYPOS = 104403 
T.SCOP 046100 
UN 021572 
UNIT 015112 
UNITS 015072 
UNITSL 015122 
UNLOAD 015152 
UNS = 040000 
UPE = 020000 


01-MAR-79 09:10 


MACY11 30A(1052) 


66 
10833 


24-MAY-79 


4719 47368 

7755 7765 

5405¢ 

5557a 

57308 

59104 

61004 

62534 

64234 

65994 

67844 

69314 

7095# 

72798 

74694 

7656" 

76918 

3.1468 34268 34658 
3888a 39328 39718 
44154 44448 44778 
55004 5733 59128 
76934 

3352 7738 7744 
2968 2972 2976 
3196 3200 3204 
3405 3431 3435 
5346 5356 5460 
6372 6503 6546 
7548 7603 7733 
7864 787) 7875 
9096 9100 9104 
10584 10594 10605 
10820 10823 #10825 
3358 3364 7848 
10958« 

3282* 3289" 3310 
3224 3282 3322 
3269 

4255 428) 4288 


6 5 
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35248 35498 
40318 4078" 
45088 4540" 
61034 62568 
7753 7796 
2980 2984 
3208 3255 
3439 3446 
5495 5628 
6679 6734 
7739 7751 
8256 8335 
9119 9116 
10624 10668 
10840 10845 
7854 9051 
33278 3329 
7760 

45354 


3351 


36158 360458 
4171# 41988 
4615# 46408 
6602 67878 
109618 

2992 2996 
5267 3273 
3835 3839 
5811 5855 
6873 7000 
779% 7797 
9046 9052 
10385 10428 
10675 = =10740 
10957# 11006 
9085 9091 
7737 7759 


8 
10503 
10742 


9109 


3703" 
42728 
49168 
7097# 


3056 
3353 
4678 
6041 
7180 
7849 
* 9074 
10515 
10771 


10242 


SEQ 0265 


i 
i 
~ 


a _ -y 


H 5 
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CZRJHD. Pi2 Q1-"AR-7 9:10 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0266 | 
uS1 = 000001 25168 3868 3909 3938 3942 3953 4314 4321 4585 4589 4601 
uS2. = 000002 25174 3868 3909 3938 3942 3953 4314 4321 4585 4589 4601 
USG = 000004 25184 3868 3909 3938 3942 3953 4314 4321 4585 4589 4601 
uwR = 000010 27128 
ull 025630 3822 38488 
VARI 032316 3097" S021" 
VAR2 032324 3098* 3099* 3100" 50224 | 
VAR3 032764 3101" SI7la | 
VARG 032772 3102" 3103" 3104" 51728 
VARS 033024 3105* 51798 
vuF = 000002 27114 
vu30 = 010000 26654 
VV = 000100 2562 3483 8065 
WAIT.1 046476 8137@ 10971 
WAT = 104415 109714 
wC 015024 o.35 27808 4773 4837* 4879 4950 5021* 5026" 5055 5121 5171* 5175 5202 
wCE = 040000 25308 
wCF = 000040 25798 
wCRC 054710 4665 4751 4928 5608 5782 5961 6304 6475 6650 6980 7145 7329 7520 
8220 8318 8479 9425 97314 
wu = 000001 26538 
WCYL 056146 5091* 5098 5322" 5329 5432" 5439 6127" 6134 6811" 6818 98128 
WECC1 055726 2193 5484 6179 6862 97368 
WECC2 055730 2193 5488 6183 6866 7154 7157* 7158* 9737« 
WKEY1 056152 5094" 53258 5435* 6130" 6814" 98148 
WKEY2 056154 5095* 5326* 5436 6131" 6815* 9815# 
WLE = 004000 25854 
WORD 053720 9403* 9408* 9417* 94198 9421" 9423 9425 9475 9479 9510" 9520 9533e 9550* 
10221* 10229* 
WRCHDA 047162 8308" 
WRCHDT 015166 28584 8239 
WRCHEK 015164 28574 8338 
WRCHHD 046650 82114 
WRDATA 054376 9310 9654" 9899 | 
WRFROM 015220 2875# 3098 3102 3490 3496" 3503 4853 4857+ 4880 4934 $022 $027 5105 
5172 5176 5264 5290 §291 5335 5361 5445 5678 5700 5857 5872" 5883 
6043 6059" 6070 6140 6374 6393 6548 6564" 6572 6736 6752" 6760 6824 
Mes 7068 7226 7251 7413 7429* 74318 744) 7605 76218 7622" 7630 8549 
6 
WRHEAD 056242 9810 9937" 
WRIDAT 015170 2859" 4681 4944 
WRIFOR 015172 2860" $115 5337 5464 6159 6843 8647 
WRITE 054156 Bots 9450 9585# 9678 9685 9691 9695 9698 9986 10006 19021 10035 10049 
6 
WRL = 004000 25674 
WRU = 000400 260614 
WSECTR 056150 5093* 5324" 5434 6129% 6813" 9795 98138 
WSSYNC 054676 97294 
wSsu ss =: 900004 2655a 
wIRK 056104 9797" 9801" 
wWWORD 054154 9439 9443 9447 9451 9459 9464 9469 95808 9629" 9679 9686 9692 9696 
96099 9987 9991 10008 10022 10036 10050 8 10063 
+ 053020 6662* 4748% 4925 5605* $779" 5958" 6301" 6472" 66472 69778 71420 73268 ?S\?e 


8217" 8314" 8522" 8539 92588 9302 
KE2 022416 3188 32188 


CZRJHDO,RPO4/5/6 DSKLS say 
CZRJHD.P12 01-MAR-79 09:10 


x11 025732 3828 
Y 053060 93120 
v1) 025324 3827 
ZCODE 050640 2202 
7505* 
ZER = 000400 26004 
ZWORDS 054374 9653e 
SAUTOB 001134 7408 
SBDADR 001122 7358 
8115* 
SBDDAT 001126 7378 
3151 
3785* 
4047 
4287* 
4429+ 
4601* 
8615 
10068* 
SBELL 001216 7698 
SCHARC 060462 10430* 
SCKSWR 060774 10548a 
SCMTAG 001100 7238 
$CM1 = 000006 755a 
$CM2 = 000014 755a 
$CmM3 = 000006 7534 
$cmM4 = 000006 7614 
SCNTLC 061545 10503 
SCNTLG 061557 10569 
SCNTLU 061552 10594 
SCRLF 001223 7718 
10845 
$OBLK 060256 10351 
SDOAGN 045010 7790 
SOTBL 060226 10354 
SENDAD 045000 
SENDCT 044746 7792e 
SENDMG 045017 7751 
SENULL 045014 7754 
SEOP 044712 3065 
SEOPCT 044740 7789" 
SERFLG 001105 726" 
SERMAX 001115 7S52e 
SERROR 061746 2918 
SERRPC 001116 7338 
2173 
2489 
SERRTB 001226 7888 
SERRTY 062114 10778 
SERTTL 001112 730e 
SESCAP 001214 7684 
SFILLC 001156 75a 
$FILLS 001155 750# 
$GDADR 001120 734e 
$GDDAT 001124 736a 


3598« 


3875« 


MACY11 30A(1052) 


24-MAY-79 


mm ee 
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CROSS REFERENCE TABLE -=- USER SYMBOLS 


5593* 
8965* 


7855 


7805# 


3622 


10771 


2145 
3634 


5946* 


10793 
104614 


2924 
7598 
7598 


765# 


10464 


2168 
3652¢ 


6120* 


10605 


10327 


2176 
3661 


6289*  6460* 


2170 2176 
3661 3690* 
3911 3952* 
4185 4215* 
4359*  4360* 
4493* 4495 


10684 =10745 


10766* 10793 


2154 2156 
2193 2196 
2179 2183 
3679" 3692 


6635* 


8592* 
9991* 


10779 


6804* 


10014* 


10793 


2163 
2202 


6965¢ 


10029* 


10801 


2166 
2206 


SEQ fe 


7130* 


8 
10041* 


10820 


2168 
2485 


2489 
375) 


73140 


86148 
10056¢ 


10825 


2170 
2487 


CZRJHDO,RPO4/5/6 DSKLS CTRLR2 
CZRJHD.P12 


$GET42 


SSAVRO 
SSCOPE 


044770 


001110 
eerrete 
061575 
061564 
060020 
001154 
000001 


062512 


045012 


eeecee 
eveeee 
062756 
057530 


01-MAR-79 09:10 
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3859* 


8608+ 
10042* 


10963 


10744a 
10313* 


110144 
109764 
10992« 


10993 
102674 


3870 
409 
4312 


— 4s —s» —_+» —s 
OnWOOCO-OoO 
WOWO NWIOW 
—Yonvoow-— 
OWA SS & 


— 


109948 


3900+ 
4100 
10069* 


10316* 


10888* 
10315 
775¢ 


10668 


10995* 


10326 
10691 


10745 

7881 
10304 
10781 


10899* 
103234 
7786* 


10684 


110138 


3938* 
4153* 
4362 

4585* 
94.138 


10925# 
7787* 


10742 


CROSS REFERENCE TABLE == USER SYMBOLS 


7795 


10745 


3980* 
4185 


5 
7083" 


7808 


10793 


3982 3985 
4211* 4219 
4422* 443) 
7948* 7950* 
9463" 9490¢ 
10326 

34178 3419 
38138 38838 
4371" 44108 
4900 5074a 
60914 6093 
7085 72678 
10311 10327 


4044 
4250 
4460 
7957 
9990* 


74578 


Rives 


SEQ 0268 


4047 
4257 
4484¢ 
8276* 
10013¢ 


35198 


CZRJHDO,RPOS/5/6 DSKLS CTRLR2 
CZRIHD.P12 


SSETUP= 


$SSi_ = 
SSTUP = 
SSVLAD 
SSVPC = 
$swR = 


SSWRMK = 
STIMES 


SIN = 


000117 
000000 


167770 


000000 
001212 


001146 
060466 
060506 
060505 
060470 
060472 
060474 
001144 
060556 
001176 


001200 
001202 


000073 


01-MAR-79 09:10 
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2915 2916 2918 
105135 = 10543 =: 10691 
103184 

658 
484 516 517 

2925 2927 2928 

3614 3644 3671 

4170 4197 4232 


7808 10259 10260 
10307 10308 10309 
10781 10785 10793 

524 10263 10264 

2924* 3038" 3118¢ 


10467 10488 10499 
10483* 10513 10530¢ 
31 9056 104834 


10484" 10485 10536* 
10485* 10647 10648* 


5087 5144 5220 
55584 5560 5650 
6075 6091 61018 
426 6524 6577 
6920 69328 6933 
7379 7446 7457 


2920 
10760 


10537* 
10649 


10489* 


2922 
10784 


10538 
10651* 


10520¢ 


3570 
4791+ 


2924 
10792 


OW fF NWwW"O 


3302+ 
4030* 
4507* 


10579 


10540* 


10522 


3788+ 
4792 


7668+ 


2925 


4539« 


10528* 


3799 
4967* 


7702* 


2927 


10292 
10752 


3590* 
4136 
4578* 


3003 


10566* 


3906* 
5138* 


8142" 


76057# 


7784 


10268 


3671* 
4232* 
10307* 


SEQ 0269 
10507 


10608* 


4157 
8147 


8268¢ 





CZRIHDO,RPOS/5/6 DSKLS CTRLR2 


CZRJHD.P12 


001152 
001157 
01150 
062516 
062540 
000016 


062552 


oS 


062770 


01-MAR-79 09:10 


L 7% 
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10778 


CROSS REFERENCE TABLE == USER SYMBOLS 
rar 7707 7719 77298 


10959# 109604 109618 109624 10963 
10972a 


7784* 10258 10296 10318 10323 
10679 =106834 


10446 104514 10452 10610 
104624 


10960 


10889 10924# 


973 9735a 
10467 10471# 10472 104754 10683# 
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CHECKA Sil# = 5.355 5493 5675 5854 6039 6188 6371 6545 6732 6871 7047 7223 7409 7601 

CHECKB 5118 = =4677 4763 4940 5111 9345 5459 5627 5810 5987 6154 6323 6502 6678 6838 
6999 7179 7357 7547 8235 8334 8507 

COMMEN la" 486 638" 

ENDCOM la 493 6388 

ERROR 5324 3053 3133 3155 3512 3568 360 3636 3665 3694 3722 3753 3797 3879 3919 
3957 3987 4050 4103 4155 4187 4221 4259 4292 4325 4364 4398 4433 4462 4497 
4527 4565 4695 4709 4712 4796 868 4889 4972 5065 5142 5212 5367 5369 5486 
5490 5529 5531 5654 5662 5708 5710 5837 5846 5891 5893 6013 6022 6034 6078 
6080 6181 6185 6225 6227 6350 6358 6401 6403 6528 6537 6580 6582 6705 6714 
6726 6768 6770 6864 6868 6908 6910 7026 7034 7076 7078 7206 7215 7259 7261 
7383 7392 7404 7449 7451 7574 7585 7595 7638 7640 7673 7681 7711 8048 8055 
8059 8072 8077 8080 8102 8110 8116 8121 8157 8555 8557 8581 8583 8598 8609 
8619 8629 8699 8905 8909 8978 

ESCAPE 1a 6384 

GETPRI ‘8 6384 

GETSWR la 4748 6384 3003 


HCOMPR Sila 

HCOMPW Sills 

MAKECL Siil# = =3519 4610 

MSG 30304 3033 3109# 3112 32918 3294 34178 3419 3453# 3456 46284 4630 4722# 4725 48978 
4900 50734 5076 52208 5222 


MULT 
NEWTST ‘a 638# 3031 3110 3141 3159 3292 3417 3454 3519 3544 3586 3610 3640 3667 


4333 4371 4410 4439 4472 4503 4535 4574 4610 4628 4723 4898 5074 5220 5396 
5546 5719 8 6091 6242 6412 6588 6775 6920 7083 7267 7457 7648 7685 7719 
POP 1 6388 7917 79 81 8291 32 8480 866 9 8993 9030 9319 9492 
9563 9630 9702 9904 10072 10193 10233 10380 10734 10997 10998 
PUSH la 6384 7907 7981 8184 8258 8374 8377 8452 8644 679 8953 9004 9226 
9381 9516 9585 9658 9778 9942 10120 10214 10339 10708 10978 10984 


REPORT la 638s 

RFORGC Sil# $526 5705 5888 6075 6222 6398 6577 6765 6905 7073 7256 7446 7635 

RH70CK Sil# = 3121 4199 4234 4339 4641 

SAVE 51l# 10761 

SAVTST Sil# 3040 3120 3146 3426 3465 3524 3549 3591 3615 3645 3672 3703 3731 3774 


642 
SCOPE 533# 3037 3117 3144 3162 3301 3425 3465 3522 3547 3589 3613 3645 3670 3701 


SETPRI 3 6384 10640 

the 109494 og * ig +444 10960 10961 10963 10965 10966 10967 10968 10969 10970 10971 

S 6 

SKIP la 5il# 6384 3018 3152 3288 3429 3606 3655 3662 3695 3721 3752 3875 3916 
3956 3991 4054 4107 4186 4220 4258 4291 4324 4363 4397 4399 4432 4461 4496 


4604 4697 4719 5355 5387 5479 5650 5835 6009 6174 6346 6524 6701 6858 7022 
rene a. 7570 7675 7680 7707 


STARS la 503 509 6584 651 718 773 2499 2501 2535 2537 3031 3036 3110 3116 
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3 9360 9362 9503 5 1 3 3 9 20 8 3 
10083 §=610085 = 10203): 10205: 10236 )=— 10245 ~—S:10255 16839 10396 10466 810543 10588 10629 §=10653 10694 
10747-10795 Ss: 10851 =: 10928 )3=—_ 10974 = 10990 
SWRSU ‘8 6384 29298 
TJUMP 5il# 3126 4204 4239 4344 4646 4797 4974 5144 
TRATRP 109498 
TSCLR Sil# 


TSCLR2 Sills 

TSCLRS Sila 

TSCLRS Sila 

TSCLRS Sila 

TYPBIN of 6384 

TYPDEC La 6384 7795 10835 

TYPNAM la 6384 

TYPNUM la 6384 

TYPOCS la 638" : 

TYPOCT la 638¢ 3357 3363 10571 10807 10832 
TYPTKT la 638" 2957 2963 2968 2972 | 2976 2980 2984 2988 2992 2996 3019 3056 3071 


SSNEWT la 6384 3031 3110 3141 3159 3292 3417 3454 3519 3544 3586 3610 3640 3667 
3698 3726 3769 3815 3883 3927 3966 4026 4073 4132 4166 4193 4228 4267 4300 
4333 4371 4410 4439 4472 4503 4535 4574 4610 seet 4723 4898 5074 5220 5396 


6 99 65 3 7267 57 
SSSET at + wre 10959 10960 10961 10965 10965 10966 10967 10968 10969 10970 10971 


-EQUAT ‘6 4744 528 
FLOAT Sila 

. HE ADE ie 4748 

KT11 Tt] 474a 79 
SETUP la 474a 2906 
. SWRHI le 4748 512 
- SWRLO 4744 $24a 525 
.SACTI le 4748 649 
.SaPTB 8 

SAPTH e 

SaPTY ls 


